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FOREWORD 


It is expected that readers of this book will have studied the 
Amstrad ‘USER INSTRUCTIONS’ book thoroughly, and are 
now wishing for a step by step guide to writing their own 
programs. This book will supply that guidance. 

Work your way through program after program in the 
order given in this book, and within a fairly short time a 
better understanding of the BASIC language used will result. 
The principle recommended is that the book be studied 
while sitting at the computer, ready to SAVE all you enter 
in the so-willing Amstrad Datacorder. In this way the 
instructions will be absorbed fairly easily. 


PLEASE NOTE 


The picture shown on the screen on the cover illustration is 
simulated. 
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Chapter One 


MAKING AND PLACING GRAPHIC 
CHARACTERS 


One of the most satisfying moves when starting to master 
program writing on the Amstrad 464 is to produce a graphic 
character of your own devising that can be placed anywhere 
on the screen. Fortunately this is one of the simplest things 
to do, for it has only three requirements: (i) the ability to 
reduce a shape to a series of numbers; (ii) a knowledge of 
how a FOR/NEXT loop operates; and (iii) a knowledge of 
how to use the LOCATE/PRINT statements. 

We will deal with (i) first, but in doing so the other 
requirements will also be demonstrated (but explained later). 
Enter this listing: it will produce an illustration on the screen 
for reference. It will also produce a white screen and black 
text, which may be easier to understand. 

REM stands for REMark, and is ignored by the computer, 
so it is useful for reference by the programmer. 


5 REM ##GRAPHIC MAK IHG## 

16 REM. sao: 

15 BORDER 21:INK 1,@:INK @,26:CLS 
2a FOR *=144 TO 406 STEF 32 
3 ORIGIH #. 96 

44 DRAM @. 256 

56 HEXT 

64 FOR vY=96 TO 352 STEP 32 
76 ORIGIN 144.4 

$4 ORAM 256.6 

94 WMEXT 4 


Notice, in line 30, the use of ORIGIN instead of PLOT. 
This ensures that each DRAW statement inside the 
FOR/NEXT loop has a newly plotted co-ordinate. When this 
list is typed in key RUN, and then ENTER. A pattern of 
squares will be produced. There are eight squares by eight 
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squares, and it is in this pattern that all graphic characters are 
formed. Now add these lines: 


1G PRINT CHR 22 4CHRS! 1 
118 LOCATE 16,2:PRINT "1":LOCATE 16, 
S:PRINT “28643216 6 4 2 1" 
115 PRINT CHR: 22 4+CHRS: > 


It is strongly recommended that the two lines, 100 and 
115, (those that include CHR$(22)) are left out until line 110 
has been entered and checked. The reason is that line 100 
puts the computer into ‘Transparent mode’, and in this mode 
EDITing is sometimes difficult. Therefore enter and check 
line 110, and then enter lines 100 and 115. 

It is really essential to take particular notice of the punctu- 
ation marks between letters or numbers in all lines when 
entering them. Comma (, ), semi-colon (; ), colon (: ), and 
the inverted commas (“ ’’) must all be meticulously typed in 
as they are shown in the lists. This applies to spaces, also. 
For instance, in line 110 there are almost as many punctuation 
marks and spaces as there are letters and numbers, and each 
one has its purpose. 

In many cases you will only notice the mistake when the 
computer produces an error message on being told to RUN. 
Then it is time to check every punctuation mark (as well as 
letters and numbers) to ensure that they are all correct. 

Lines 100 to 115 produce some numbers at the top of the 
pattern of squares. They represent the values of the columns 
of squares below them. The first one (from the left) is 128, 
the second 64, then 32, 16, 8, 4, 2, 1. These are more easily 
remembered if you start from the right: 1; double that 2; 
double that 4; double that 8; and so on to 128, which is 
double 64. Now enter this larger block of lines. 


126 LOCATE 16.4:PRIHT CHES¢ 14314 CHRS 
Ci43o:LOCATE 16,5: PRINT CHRIS. 143 950H 
RS. 14:52 

128 LOCATE 14.6:FRINT CHR: 145 55 CHES 


L145>:LOCATE 14.7: PRIHT CHR 14359;CH 
RS. 14355 

144 LOCATE 12,5:PRINT CHES: 1433; CHES 
Cidso: LOCATE 12.9: PRINT CHES 14595C0H 
Re 1435 

156 LOCATE 16.18:FRIWHT CHR 1439; CHR 
$0 1439; CHR 143 CHR! 143 45 CHRS! 142) 
iCHRS! 145 9 

166 LOCATE 18,11: PRINT CHES 145 5; rae 
$0145 9; CHR 1435 95 CHES 14595 CHRSC 145 

ij CHR. 1433 

1fe LOCATE 12.12: FRIHT CHES! 14395 CHE 
$0 1450; CHES 1495 9; CHR SC 145 55 CHR SO 145 3 
iCHRR 1439; CHRS! 1439; CHRIS. 143 9; CHRSC 
143); CHES! 143 95 CHR S$! 1439; CHR $0145 0500 
HRS 143 95 CHES! 1459 

186 LOCATE 12.13:FRIHT CHRS¢ 14355 CHR 
$0 14359; CHES 1435) CHE $C 1495 2; CHES! 1455 
SCHES! 14595 CHR 14395 CHES 145 9) CHR SE 
1430; CHES! 1455; CHRO 1450; CHRSC 145050 
HR 14595 CHRO 145 > 

1396 LOCATE 14,14: FPRIWT CHRS* 1439; CHE 
$0 143505 CHR 143595 CHR 14395 CHR SC 145 > 
SCHR. 143505 CHSC 143 05 CHR 1455 95 CHR 
1435; CHR! 145 05 CHES. 14505 CHES 1455 
zea LOCATE 14,15: PRINT CHES 14352; CHE 
$0145 0; CHES 14595 CHRO 143 9; CHR SE 145 
SCHR 14395 CHRS. 14393 CHR 143 23 CHES 
1439; CHES! 145 5; CHR! 14595 CHRSC 145 > 
218 LOCATE 14.16: FPRIHT CHRS* 143 9; CHE 
$0 1439; CHRS 1435) CHRES¢1493%9:LOCATE 22 
216:PRIHT CHES! 14595 CHRSE 1433 

226 LOCATE 14,17: PRIWT CHRES¢ 14290) CHR 
$0 1455; CHRS¢ 14395 CHRS¢ 143%:LOCATE 22 
,1f:PRIWT CHRS¢ 1439; CHRS¢ 1439 

230 LOCATE 12,18: FRIHT CHES 14355 CHF 
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$C 1idS>:LOCATE 16.12:PRINT CHR$¢ 143); 
CHES. 1459:LOCATE 22.18: FRIHT CHES¢ 14 
33 CHEB 143 > 

2d@ LOCATE 12.13:PRINT CHRS¢ 1459; CHR 
$01455>:LOCATE 16.19:FRIHT CHRS¢ 1435; 
CHRS¢145>:LOCATE 22,13:FRIHT CHRS* 14 
359; CHES¢ 14359 


CHR$(143) is an existing solid block character, and it is 
used in these lines to fill some squares in the pattern. Four 
characters are needed to fill each square in the form we have 
used to draw it (to make it large on the screen), so there are a 
lot to enter. Make sure of all the punctuation marks, remem- 
bering that a colon ( : ) separates off two statements or 
commands, and a semi-colon ( ; ) tells the computer to 
position the next character closely to the previous one. 
Mistakes in these will cause an error message to appear when 
they are RUN. 

If entered correctly the pattern that is produced on the 
screen is that of a deer, quite crude in this enlarged version 
but credible when small. Enter the next four lines using the 
same method as before for lines containing CHR$(22) etc. 
That means: enter lines 250 and 260, check that they are 
correct, and then enter lines 245 to 265. 


245 PRIHT CHRES< 22 9+CHRS 1 2 

258 LOCATE 27.5:FPRINT "1L6":LOCATE 27 
sfOPRINT "Se": LOCATE 27.3:PRINT "64" 
‘LOCATE 26: 11:PRIWT “e2e4" 

266 LOCATE 26,13:PRIWT “ler: LOCATE 
27-1S:PRIWT "es": LOCATE 27.17: FRINT 
"Se": LOCATE 27.19:FPRINT "se" 

265 PRIHT CHR: 22 +H Bo 


When the program is now RUN there will be shown the 
pattern of the deer, the numbers showing the column values 
at the top, and the row values at the right. These row values 
are obtained by totalling the values of each filled in square in 
that row. 


For instance: row one has a black square under 16. Enter 
that on the right. Row two has a black square under 32. 
Enter that on the right. Row three has one under 64. Enter 
that. Row four has three black squares under 128, 64, and 32. 
Adding these together gives 224. Enter that on the right. The 
same procedure continues to the eighth row, and if one 
happens to be a blank row, then that is entered as 0. 

To emphasize this point use a blank sheet of paper, and 
draw on it a pattern of 8 x 8 squares (like the one on the 
screen), and fill in some of the squares to make a pattern. 
Here is an example you might like to follow: put three 
black. squares in the first row under the numbers 128, 64, and 
32. These total 224, so enter that at the right for row 1. 
In the second row enter one square under 16. Put that on the 
right. In the third row enter one square under 32, and enter 
that. In the fourth row enter five black squares under 64, 32, 
16, 8, and 4. These add together to make 124; enter that on 
the right. 

Row five has six squares under 64, 32, 16, 8, 4, and 2, so 
enter 126 for that. Row six is under 32, 16, 8, 4, 2, and 1, 
making 63 to enter on the right. Row seven is under 8, 4, 2, 
and 1, so enter 15. The last row (8) is just one square under 
4; so enter that. 

This pattern makes a goose, and the eight numbers are 
used to form a graphic character, just as the first example 
made a deer. Enter these nine lines now. 


éfa@ SYMBOL AFTER 246 

220 SYMBOL 241.16,32,.64,224,127,63.5 
Be: REM CEER 

236 LOCATE 32,9: PRIHT CHES 241 2 

He SYMBOL 242. 224,16,52,.124,126,63, 
15.4:REM GOOSE 

316 LOCATE 32.11:FPRINT CHES! ede 2 
ge REM 

S30 REM 

34a REM 

Soe REM 


The four empty REM rows are there for you to fill with 
experiments of your own. Graphic characters on the 
Amstrad 464 are extremely easy to produce. In the User 
Instruction book at Appendix 3, pages 2 to 13, can be found 
a set of over 200 graphic characters ready to use with: PRINT 
CHR$(33) etc. Each of these characters can be re-defined to 
one of your own design using a special formula. 

First of all decide how many characters you are going to 
require. Then, avoiding those already existing which you 
may want to use (we have already used CHR$(143)) you 
select a block to use for yourself: the block must be a 
continuous one. I have chosen CHR$(241) for the first one 
in this program. 

The formula is: (line No.) SYMBOL AFTER 241 (this we 
chose). (next line) SYMBOL 241, (and then eight numbers 
like those we explained above), Each one must be separated 
by a comma. Lines 270, 280, and 300 show this in practice. 
Lines 290 and 310 show how to write a line to print them on 
the screen. To repeat the formula: first line: SYMBOL 
AFTER (a number); second line: SYMBOL (number), (and the 
eight numbers divided by commas). Put a REM (separated 
from the last number by a colon) at the end of each 
SYMBOL line for your own reference later. 

When the program is now RUN the two characters will 
appear to the right of the diagram. These two characters (and 
any others you may design) will be available in the computer 
until it is turned off. Even using NEW will not remove them. 

Having carefully studied the results obtained so far you 
will realise that with a sheet of squared paper almost any kind 
of character can be made. Remember, however, always use a 
single block of numbers starting with SYMBOL AFTER 
(whichever number you decide to use). 

It is now time to examine the LOCATE/PRINT statements. 
For this we shall use another screen, taking the opportunity 
to change the border colour, also. 

Notice that in line 360 the INPUT position has been located 
near the bottom; left alone it would appear higher up. The 
‘variable’ given to the reply is J$, so that line 370 is easy to 
understand. Line 390 is there merely to prevent any move with- 
out clearing the screen. CLS in lines 370 and 520 will do that. 


6 


LOCATE 2,24: INPUT “EWHTER 2 FOR WN 
SECTION. "i JS 
IF J#="2" THEH CLS:GOTO Sie 
LOCATE 2.22: ST0F 
REM ##LOCHTERS 
REN ase 
BORDER i7:CLs 

At this stage SAVE all you have entered. I make a practice 
of doing this after every few lines (well, a dozen or so lines) 
because in my area we are liable to power cuts at odd times. 
Our supply comes from automatically controlled transformers. 
Yours may be the same without you being aware of it, so keep 
on recording as you work, it is easy with the Amstrad. Now 
enter these lines. 


CACN LN h OM i 
fr gs 
ym Coe oS i 


1 
ack 


v3 FOR A=1 ve B44 STEP ie 
S44 ORIGIH 

colt DRA 1 400 

Sb MEST 4 

Sra FOR v=1 TO 44a STEP ie 
So ORIGIH 1.7 

S38 DRAW 64a. 1 

6a HEAT 7 


To start off this section we use FOR/NEXT loops that 
enable the Amstrad to print parallel lines, using ORIGIN 
instead of PLOT. To see the result of PLOT instead of 
ORIGIN, EDIT line 540, and change ORIGIN to PLOT. 
When this is RUN (RUN 500) the result is that the vertical 
lines become a series of slanting ones near the top of the 
screen. They would converge at a single point if they were 
lower on the screen. Now EDIT 540 once more, and 
replace origin. This little experiment will show that when 
using a FOR/NEXT loop to repeat parallel lines, ORIGIN 
must be used. 

With that pattern of squares now in the program we 
must enter four more lines. These include the Transparent 
mode again CHR$(22)+(CHRS$(1)) so first enter lines 620 and 
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630. RUN 500 again to see that they are correct, and then 
enter lines 610 and 640 to make them print without erasing 
any background. 


6146 FRIWT CHRSt 22 5+CHR Se: 1 

ec LOCATE 1.1:PRINT "1234¢56735-¢-ON 
-TO-45" 

636 LOCATE 1.2:PRINT “2°: PRINT "S":P 
RIHT "4": PRINT "S" : PRINT "6": PRINT " 
f° SPRINT "S": PRINT ASS PRIM =" PR] 
NT "S"CPRIHT "-"SPRIHT "OO": PRINT "H" 
:PRINT "<""“PRIHT "T' PRINT "0": PRINT 

=" PRINT "2" ePRINT "3" 
648 PRINT CHRS* 22 3+CHRS* & > 


With these lines the X numbers at the top, and the Y 
numbers down the left hand side (used in LOCATE) are put 
into their places. Beyond 9 the numbers would occupy two 
spaces each, so they are not included. It will be realised by 
now (if you entered and tested lines 620 and 630 on their 
own first) just how effective that Transparent command 
really is. 

Another point to be remembered is the use of inverted 
commas (‘‘ ”) to enclose whatever is to be printed. Without 
those signs the computer would interpret (literally) what it 
was told to print, and, for instance, dash signs ( — ) would 
become minus signs. The computer prints (as it stands) 
whatever is enclosed by inverted commas. In line 630 the 
colons ( : ) between each PRINT statement ensure that each 
succeeding command is printed one line lower. 


B58 LOCATE 6.35: PRIHT CHR 24) 9: LOCAT 
E 16.15: PRINT CHR 242 3 
Gt LOCATE ¢.7:FRINT "THIS IS A TEST 


f@ PRINT Yee ge ee 
666 LOCATE 7. 3:FRINT "THIS IS A TEST 


638 PRIHT CHES¢ 22 o+CHRS: Bd 
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This small section prints the deer and the goose at different 
places, without the Transparent mode. Leave out lines 670 
and 690 until the others are entered and checked with RUN 
500. Then add those two lines, and note the difference once 
more. With this demonstration you should find it easy to add 
lines of your own after line 690. Do this as a practice, and 
then we must move on to the next section. 

To examine the FOR/NEXT loop more closely we will need 
another screen, starting at 1000. Save all you have done, and 
then add these lines. 

886 LOCATE 2.24:INPUT "ENTER 3 FOR H 
EAT SECTION. "i KS 
616 IF K$="S" THEN CLS:GOTO lb 


990 STOP 

1808 REM #FOR-NEXT LOOPS: 

101G REM # AX KR KK 

1028 BORDER 15°CLS 

1838 X=1:FOR ¥=1 TO 25 

1a4a LOCATE ¥.¥ PRINT CHRS( 241 3 


1W56 NEAT 1 

This produces a different border colour, and a column of 
deer at the left hand side when RUN 1000 is entered. Enter 
three more lines now. They are similar to those at 1030— 
1050, except for two slight differences. See if you can spot 
them. 


1y60 “=3:FOR ‘’=1 TO 25 STEF 2 
1078 eaten PRIHT CHR? 241 3 
1636 HEAT 


X has now become 3 instead of 1, and ‘STEP 2’ has been 
added to the ‘FOR Y’ part of the statement. It is that STEP 
2 that has spaced them out. Add another four lines, and 
examine the differences in these. 


1894 FOR: os 1 TO ae ia é 
111% LOCATE wey PRINT CHES ede 3 
lige NEAT Ve HERT & 
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Before going any farther SAVE all the program onto tape. 
When this has been done RUN 1000. There will be a screenful 
of deer and geese. The explanation of how a FOR/NEXT loop 
produces this result needs careful study. 

There are four FOR/NEXT loops between lines 1030 and 
1120, the last two being between 1090 and 1120, where the Y 
loop is enclosed by the X loop. This is called ‘NESTING’, but 
more of that later. Starting with the statement at line 1030 
‘X=1: FOR Y=1 TO 25’, and finishing at line 1050 ‘NEXT Y’, 
the computer reads X=1, so knows that whatever it is com- 
manded to do must be done in column 1. It reads ‘FOR Y=1 
TO 25’ and knows that it has to repeat the PRINT at all rows 
from 1 to 25. It keeps repeating the PRINT at X(1), Y(1 TO 
25) so long as a Y number remains, and when Y is finished it 
goes to the next line 1060. 

There, in line 1060, it meets a different formula, including 
‘STEP 2’. This means that it must repeat the PRINTing on 
alternate rows only, at X column 3. When Y runs out of 
numbers the computer goes on to line 1090, where there are 
two NESTED loops. 

The word ‘NESTED’ means that one loop must be com- 
pletely enclosed by the other. At column 5(X) the computer 
PRINTS the character (a goose this time) at the places speci- 
fied by the Y loop (1 TO 25 STEP 2). This is at each place 
in column 5 that Y specifies. Having done this it goes back to 
the next X column (7) and fills that in. And so it continues 
until the Y numbers are exhausted, and so are those of X, and 
it can pass on to the next line number. It does all this very 
quickly, but if you watch carefully you will be able to see it in 
operation. 

FOR/NEXT loops can be used for a number of repetitive 
purposes, and making a series of sounds is one example. The 
sounds produced by the Amstrad are fairly complex, but here 
we won’t deal with them in detail. A range of simple tones 
will suffice. Enter these three lines now. 


1138 FOR 4=168 TO S@ STEF - 
1148 SOUMD 1.4.16 
1158 HEAT » 
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In the FOR X line the pitch of the tone is made to rise in 
steps of 5 from 100 to 50 (lower numbers are higher pitched) 
and repeats the tone at a higher pitch as it goes on. When it 
reaches 50 it finishes. Note the way in which this entry is 
made: SOUND 1,X,10. It will be realised that the central 
number controls the note. This sound can be made to repeat 
with the aid of another FOR/NEXT loop nested around the 
first one. Enter these extra lines and modify line 1140 as 
shown here. 


1125 FOR 2=1 TO 3 

11368 FOR H=168 To Se STEP -S 
lide SOUND 1,4¢+2.18 

Lite HEAT & 

1155 HEAT 2 


The Z loop is now nested around the X loop, and so the 
tune is repeated three times. This is a simple illustration of 
how to use a nested loop. Note that the X loop governs the 
tune, and the Z loop governs the number of times it is played. 

If you have followed the instructions so far you have now 
written a program consisting of three separate demonstra- 
tions of what you will need to know to tackle the games 
programs that follow. Now we will add a few lines so that 
we will be able to switch back to screen | again. 


1466 LOCATE 1,25: 1HPUT "ENTER 1 FOR 
FIRST SECTION. "3 LS 
idig@ IF L&="1i" THEH CLS:GOTO 1 


With the aid of this small arrangement you will be able to 
switch to any of the screens in this program at will. To 
become free from this sequences, use ESC. Then you can 
use LIST, RUN, or SAVE as you wish. 

Incidentally, when wishing to LIST lines in the middle of 
a program, say at 500, then enter LIST 500—. Don’t forget 
that dash, for without it only the one line would be shown 
on the screen. With it the whole program after that line 
number is available. That minus sign means ‘onward’ in this 
context, so be ready with the ESC button to stop it where 
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you want it. 

If you have just skipped through this chapter, wanting to 
get to the games programs, then be warned: without the 
knowledge in this first chapter you will find the game heavy 
going. 
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Chapter Two 


WRITING A GAME OF PATIENCE WITH 
DOMINOES 


If you have thoroughly studied and worked through the first 
chapter there is now nothing between your desire to write a 
complete games program for the Amstrad, and its completion 
except a deal of thinking, and a patient following of the 
instructions in this chapter. 

I have chosen a game of Domino Patience for this example, 
mainly because it entails the use of many things you have 
learnt so far, and also because with a computer you can use 
many more dominoes than are available with a normal set. 

There will have to be many sections in such a program, for 
one will be needed to produce the dominoes, and another to 
play the game. It would also be advisable to have a screenful 
of rules before the game starts, so there must be a section for 
that, and another to lay out the screen for the actual game. 
We shall start by producing the dominoes. 

When a computer has been instructed to produce some 
dominoes in graphic characters, they are stored in memory, 
and will always be available during the course of successive 
games, so there is no need for this section to be near the 
beginning as it takes a little time to run through its pro- 
cedure, and this would introduce an unnecessary delay if 
run through regularly. 

Therefore we use a routine called GOSUB/RETURN, 
which will allow us to place the graphic making section at the 
end of the program. A skeleton will be written first, into 
which the flesh of the program can be fitted. A section will 
be used for rules, another for screen lay-out, and another 
for the actual moves. Enter these lines now. 


1@ REM DOMIHO PATIENCE 
26 REM £RERRRESEREERES 
34 BORDER 7: IME 1.8:1MK @.26:CLS 
46 GOSUE 36 
96 GOSUE 46 


m= hd St 


aL 
i 
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6H GOSUE See 
REM GAM 
REM £ERE 

STOF 

REM GAME SCREEHM 
REM FREER RREERE 
RETURH 

STOP 

FEM RULES SCREEM 
RE EEERREEREEEE 
RETURM 

STOF 

REM MAKE DOMIMOES 
REM FEEEEESEREALSE 
RETURG 

STOrF 


a) 
ce 
Pe 


=, 
an! 
= 
a! 


1 


LD) pee 
am 
te" 
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ee 
eae atte ST byle te ee Se Re 


nt 
pare 


Race Myce See ce tate eS Ace em 
on 
nd! 


HANNO hehe POW 
Rye bye ee le At Re ee 


aye ts 


When this list is studied it will be seen to form a frame- 
work for the program. Some parts need explaining, 
however. Line 40 GOSUB 5000 sends the computer to line 
5000, and 5998 sends it back to the line immediately after 
the one that has sent it to 5000, as the computer always 
remembers correctly where it came from GOSUB/RETURN 
can always be relied on. 

Therefore line 50 sends it to 4000 (the Rules), 4998 
sends it back to the line after 50 and so on. The STOP 
lines at 2999, 3999, 4999, and 5999 are inserted only for 
our convenience. They prevent the computer entering a 
following section if we should lose a RETURN from any- 
where. Having now got a good skeleton we shall work on 
each section in turn, starting at 5000. 

We shall use graphic characters to form the dominoes, so 
that there is a black domino with white pips. However, 
because a domino is oblong, while graphic characters are 
square, we shall need two graphic for each domino. 
Fortunately we can use the same seven characters. Enter 
these lines now. 
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sH2e SVNEOL AFTER 

Shs SY MEOL D4, 255 "555,255,255, 255, 
255,255, 8: REM bon 8 

sH4ea SYMBOL 241.255.255.255, 231,.255, 
e552 255, B REM DOM 1 

S858 Sy MEOL Ste eet yeep eoo tase: 
245,255, 48:REM DOM 2 

pa Ta MBO 243,255,159, 255,231,255, 


245,255, 6:REM DOM S| 

sa? A PA oe 244,255,153, 255,255,255, 
1B: REM DOM 4 
SYMBOL 245,255. 155,255,231, 255, 
sB REM DOM S 

SyNEOL Sane ee 


pat SY NBC REM DOM 6 


When these lines are entered it may be noticed that the last 
number of the SYMBOL numbers (240 to 246) appear to 
coincide with the domino pip values. This is no coincidence, 
for I started the numbering at 240 with this in mind. It will 
make the task easier later on. The formula used in lines 5030 
to 5090 (making ‘the half dominoes) is perfectly straight- 
forward. The line number is followed by ‘SYMBOL’ and then 
the character number. Then, after a comma, and spaced with 
commas, come the eight numbers forming that character 
(nine numbers in all, each separated from the other by a 
comma). The REM at the end of each line is for your own 
reference, it is ignored by the computer. 

To check that the half dominoes have been correctly 
entered insert this temporary line: 1020 LOCATE 3,10: 
PRINT CHR$(240); ”;CHR$(241); ”;CHR$(242);“ ”; 
CHR$(243);“ ”;CHR$(244); ”;CHRS(245);* ”;CHR$(246). 
Now RUN the program, and this should appear on your 
screen as seven half dominoes. If correct, then enter 1020 
on its own to delete it. 

The graphics section is now complete, so we shall pro- 
ceed with the RULES section at 4000. Because the game of 
Domino Patience is not well known (it is my own invention) 
it is necessary to produce a display of what the completed 


— Che Ch 
A AS Cac 
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game should look like. The dominoes must be located in the 
positions that they will occupy when playing the game, so to 
do this you must study the LOCATE statement once more. 

Along the top of the screen are the X positions 1 to 40, 
and down the left hand side are the Y positions 1 to 25. 
When positions on the screen have to be labelled for play 
(as in this game) it is useful to use letters instead of numbers 
(mainly because numbers larger than 9 occupy two spaces). 
In this particular case each position is three spaces from its 
neighbour, and irregularly spaced numbers could be confus- 
ing (4, 7, 10, 13, etc.). Therefore letters are used, and con- 
verted to an X or Y value during the program. Enter these 
lines now. 


4020 LOCATE 4.2:PRINT "A B C DE 
FG" 

4030 LOCATE 2,4:PRINT "A":LOCATE 2.7 

PRINT "B":LOCATE 2,1@:PRINT "C": LOG 

ATE 2,13°PRINT "D":LOCATE 2,16:PRINT 
"E"OLOCATE 2,19:PRINT "F":LOCATE 2, 

22:PRINT "G" 

4040 a4 B=? C=16:D=13:E=16:F=19:G=2 

2 


The domino positions have been located so that A, in either 
X or Y position, will equal 4. Lines 4020 and 4030 position 
the A,B,C numbers, and line 4040 gives them a value. The 
seven letters (A to G) are now variables, and must not be used 
as variables for anything else in this program. RUN the pro- 
gram now so that those values are put into the memory. The 
computer will understand from now on that LOCATE D,C: 
means to LOCATE 13,10: Try entering (without any line 
number): LOCATE C,B:PRINT CHR$(244);CHR$(243) and 
then ENTER. The domino 4—3 will appear at that location. 
This will not harm the program, and will disappear without 
trace at the next LIST or RUN. 

It is now necessary to tell the computer which domino to 
place in which position for the display, so enter this: 
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4054 LOCATE A-A: PRINT CHRS*¢ 246 93 CHES 
(2465:LOCATE ALB: PRIHT CHR! 24695 CHR 
$0245 9: LOCATE ALC PRINT CHR. 246 05CH 
RSC 2449:LOCATE AsO: PRINT CHES? 246050 
HRS 24S 3 

4068 LOCATE H,E: FRIWT CHES 246 9; CHES 
C2é42>:LOCATE ALF: RPRIWT CHES! 24695 CHR 
$2419: LOCATE ALG: PRIWT CHRS< 246 9;CH 
RE. 48 9 

4078 LOCATE B.A: PRIWT CHRS! 2459; CHES 
(245 5:LOCATE BOB: PRIWT CHR 245 05 CHE 
$0 S44}: LOCATE B.C: PRIWMT CHRES* 245 9;CH 
Ri ob 

4c LOCATE B.O0:PRIWNT CHES! 245 55 CHRS 
(2425:LOCATE BE: FRIWT CHR 24505 CHE 
$(2415:LOCATE 6.F: PRINT CHES. 245 50H 
Ree oo 

4094 LOCATE CVA: PRINT CHES! 244 0) CHES 
Ced¢4d 0: LOCATE CUB SPRINT CHR! 244 05 CHE 
$243): Senne CC: PRINT CHES! 244 550H 
mee ode 

4188 LOCATE C.0:PRIWT CHES 2445; CHES 
C241 5:LOCATE CVE: PRINT CHES? 24405 CHR 
Sedo 3 

4116 LOCATE GA: FRIWT CHES! 245 55 CHS 
(e435 >-LOCATE 0.6: PRIHT CHR! 2430) CHE 
Sede 5:LOCATE GLC: FRIWT CHES! 243 9;(0H 
Ae S410: LOCATE 0.0: FRIKT CHR! 243 OCH 
Ree Soe 3 

4126 LOCATE E.A:PRIWT CHRS<¢ 2429; CHES 
(2d¢2>:LOCATE E.B:PRIWT CHR! 242 03 CHR 
GS S419: LOCATE ELC: PRINT CHR ode 05(0H 
Fp. chit 

4130 LOCATE FLA: PRIHT CHES! 241 2) CHES 
C241 >:LOCATE FLB:PRIWT CHES! 241 23 CHE 
$l24da5:LOCATE GOA: PRINT CHR: ode 5 CH. 
Ree 24 3 
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This is a long, tedious list to enter, but the advantage of 
having the last number of the SYMBOL number the same as 
the domino it forms will now be apparent: it is easier to 
remember the number that goes between the brackets after 
CHR$. When this is correctly entered it will print up on the 
screen, and we can proceed to enter the game title, the instruc- 
tions, and a X to mark where the domino will appear when 
the game starts. 

Notice, in line 4150, that PEN 3: is used to print the title 
in red. If this was left unaltered everything else from then on 
would be red; therefore, in line 4160, PEN 1: is used to 
reverse this. PEN 3: and PEN 1: are used again for the INPUT 
line (lines 4200 and 4210). Line 4190 reminds the player to 
go into CAPS mode. 


4146 LOCATE 11.22:FRIWNT "x" 
4156 PEN 3:LOCATE 28.¢:FRIHT “4#DOMIN 
O#" > LOCATE 2c.4:FRINT "PATIEMCE" 
4166 FEM 1: LOCATE 2o.6°PRIHT "ALM AT 
THIS" :LOCATE 25.7:PRIWT "FATTERH., " 
41if8 LOCATE 23,9) FRIHT "IF DOMIHO AT 
H IS": LOCATE 23.16:-PRIHT "A GOUBLE 
THEM USE": LOCATE 2s. 11:FRIHT "IT To 
START." 
4156 LOCATE 21,13: PRIHT "OWL Y ENTER 
OOMIHOES" : LOCATE 21,14:FRINT "IH Seb 
WEMITE AS": LOCATE 21.15: PRIHT "SHOW 
HERE. " 
4190 LOCATE 15,.18:FPRINT "PRESS CAFS 
Lok." 
420 PEM S:LOCATE 19.24: IHPUT "“EHTER 
FOTO START" WS 
4210 PEH 1: IF G="F" THEN CLS: RETURN 
4226 IF OS2-"P" THEM GOTO 4208 
The INPUT lines 4200—4220 change the screen to that at 
3000, the GAME screen; although if you RUN the program 
now you will receive the signal “Break in 2999’, This is 
because there is nothing at 3000 to stop the RETURN at 
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3998, and so it continues to the GAME section at 1000, 
where line 2999 comes into operation. 

We will now start to plan the GAME screen. A title will 
be needed; a score section; and some more instructions; as 
well as the position letters, and some boxes in which to 
LOCATE each of the dominoes. That must be done first. 

Beginners at programming will be wondering by now how 
it is possible to LOCATE text on a screen at suitable positions, 
and may think it is done by trial and error. This is not so. It 
is done with the aid of a plotting board. Such things are 
advertised in computer magazines, but you can easily make 
one yourself. My first one was made on a piece of stiff 
cardboard, and it lasted for some time. 

On the board are ruled 26 horizontal and 41 vertical lines 
spaced about % inch apart. These produce 1000 squares (40 
along the top, and 25 down the side). That is the number of 
spaces on the Amstrad 464 in Mode 1 (the mode in which I 
prefer to work). I extend all the lines a little beyond the 
boundary line, so that the numbering of the positions is 
clearer. A short program will illustrate this better than many 
words. It will not alter the program at all, being located at 
lines 8000-8140, and it will be another exercise in 
programming. 

Incidentally, if you have not realised it yet, it is possible 
to summon up any portion of a program list by entering LIST 
and the line number followed by a dash: ‘LIST 8000—’ in this 
case. When you do this in a longer section of program have a 
finger near the ESC button in order to stop the scrolling where 
you want it. 


saan REM TEST 
8618 FOR w=ied TO 454 SIE oe 
shen Ck: IGIN Ay 52 


8030 DRA A, 320 

S44 HEAT & 

8850 FOR ‘=68e8 TO sre STEP oe 
S494 ORIGIH 164, 

$168 DRAW S24. 

$118 WEST 7 


elec LOCA Te, Loy2* PRIA “1 2-3-4 5-6 
75 9": LOCATE 28.1:FRINT "A" 
O13 LOCATE AL.d: FRINT "1": LOCRHTE 11 


1 

e:PRIMT "2":LOCATE 11,6:PRIMT "3°:L 
IWATE 11. iB: PRIHT “4":>LOCRTE &,.12:FR 
HT Oy 

Sida LOCATE 11.14:FRINT "6":LOCATE | 
1,16:PRIHT "FP" LOCATE Ll,1lco:PRIHT "3 
"SLOCATE 11.28°FRINT "3" 

When this is entered, and you RUN 8000, it will show the 
top left hand corner of the board you are designing. in this 
enlarged version it is only possible to give 9 numbers each way, 
but it does illustrate what has been described so far. 

The plotting board you are making will have 40 horizontal 
spaces and 25 vertical ones, so the X numbers will go (left to 
right) 1 to 40, while the Y numbers will go (top to bottom) 
1 to 25. 

In addition to these, for the PLOT/ORIGIN/DRAW com- 
mands you will require the PIXEL numbers: X along the 
bottom from left to right, and the Y numbers up the right 
hand side. These numbers progress in steps of 16: 0, 16, 32, 
48, 64, 80, and so on to 640 at the bottom, and to 400. up 
the right hand side. These numbers are at the line ends, not 
the spaces in between, starting with O for the border line in 
each case. 

When the board is complete in ink, of course any light 
pencil mark can be removed easily with a rubber; so it is easy 
to enter in all that has to go onto the screen, remembering 
that each space represents a letter, or a space, or a comma, etc. 
I find it nearly impossible to do any serious programming 
without such a board, and now make mine on a sheet of 
Formica as it lasts longer, and as the ink lines become faded 
they are easily re-drawn. Try using Indian ink for permanence. 

Before this plotting board diversion we were about to draw 
the lines forming the boxes for the domino game. These, 
being all of different sizes, must be entered separately; hence 
the long list of ORIGIN/DRAW statements in lines 3020- 
3050. However, the lines used in section 4000 for the location 
letters and variables can soon be transferred to this section by 
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EDITing their line numbers, so that will ease the problem a 
little. 


GH20 ORIGIH 46.32 :0RAM @. S35 :0RIGIH 
ai. 32: DREAM a, 335° ORIGIN it6. 68: DRAM 
B.257 ORIGIN 154.126: 0RAW @.235 

S438 ORIGIN 2oe.176:DEAW @.131:0FRIGI 
H 286,224: 0RAW 8.1435:0RIGIH Ses. 2re: 
DRAM @. 36 ORIGIH 2F6. 320: DRAW 8.47 
2646 ORIGIN 44,367: DRAM Ste. @ GRTGIH 
46,5260: DRAW Ste. 8 :CORIGIH 46.272: OKA 
25.6: UR IGIH 48,.2¢4:DRAM 246.8 

i ORIGIH 44.176: ORAM 132.6: 0RIGIH 


12h: DRAW 144.6:0RIGIN 40.60: 0RAW 
@:GRIGIH 46.32: O0RAM 45.8 

B LOCATE 4.2:PRINT "RH E C D E 

CG" 

ra LOCATE 2.4:PRIHT "A" :LOCATE 2.7 
“PRINT "B": LOCATE 2.18: eet "8 LOW 
rE Sv1S:PRIMT “O":LOCATE 2.16: FRIWT 
: (LOCATE | ele PRIHT "F": LOCATE roa 
(PRINT "OG 

SH Ang Bo? CA1O:De1d-Be16 -Fe19: G2 


2 
hay! 
om 
Gy 
a 


a 
4H 
9 
oH 


~~ TH 


pm a) 
Tha = ae a ea 


fr Ga ho 


Entering the rest of the Game screen section is simple, 
provided you have a plotting board on which to locate the 
text. Having done this myself for this game, 1 have now 
only to read off the locations, and enter them for printing. 
One other point, though, is the introduction of some 
colour, and I have done this with three lines, as will be seen 
in the following list. 


S036 LOCATE 11,22: FRINT "A" 

S184 PEH S:LOCAHTE 3.2:FRIHT "SCORE" 
‘FEM 1 

S114 LOCATE 31.4:PRIHT "FOR: " es FATE 


27,6°PRINT "AGAINST: "LOCATE 27. 2:F 
RINT “RYERAGE :" 
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Sieh FEW S:LOCATE 26,.16:FRIWT “sea KS 
RERRE" : LOCATE 26.11: FRIHT “*#D0M THis 
#': LOCATE 26.12: FRINT “#PATIENCE#E" Lb 
OCATE 26.13:FRIHT "##EREREREEE": PEW 1 
3136 LOCATE 15.15:FRINT "FIRST EWTER 
Yo oO WW" 

3144 LOCATE 17,17:FRIHT “THEH TOF LE 
TTER" :LOCATE 17,16:FRIHT "AHD SIDE L 
ETTER" 

3156 FEN S:LOCATE 17,.19:FRINT "EASE 
PARATELY#eé" =: PEW 1 


Line 3100 shows PEN 3 (red) at the line beginning, and 
PEN | at its end. This applies also to lines 3120, and 3150. 
Isolating the colour to its own line in this fashion seems to be 
the most satisfactory way. The games screen is now complete, 
and the game itself, at 1000, can be planned. 

We start this by making some two-letter ‘variables’ for the 
SCORE, and printing an 0 at these positions. It is followed by 
a restriction on the number of dominoes to be used. 


1624 FeREe: AASB VE=8:LOCATE 35.4:PRIN 
T Fa: LOCATE 3o.6:PRIHT AX:LOCATE 35, 
G:PRIHT VE 

1638 IF AK«=225 THEM LOCATE 16. 22:PRI 
NT "GAME EHDED.": FOR «=168 TO Sa STE 
P-S:SOUHD 1.4%. 26:HEAT «+: GOTO 1158 


The next few moves are crucial to the whole game, for we 
have to RANDOMIZE (produce different varieties of) the 
domino halves, and see that they change at each move. The 
RND command is inclined to repeat a series of changes, and 
can only be called ‘Pseudo-random’. Using RANDOMIZE in 
front of them improves the situation, and RANDOMIZE TIME 
is even better. We will use that. The domino halves must be 
put into a string, so that the two halves can be joined and then 
printed together. 
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1046 AS=CHESC 240 9+ CHES O41 O+CHRE St 242 
a+ CHR 243 + CHR 244 + CHR S45 + CHES 
(246% 

15 i BS=GHE St 24 0+ CHES 241 D+ CHESS ode 
D+ CHR S43 O+ CHR 244 + CHRIS 245 I+ CHES 
Cede 3 

1660 RAMDOMIZE TIME 

17 Z=INTCRMDAT +1 


G50 G=IHTé RADE? +1 
{G90 LOCATE 13. 22:PRIHT MIDSCAS, 2.13 
+HI DSC BSG, 13 


When this has been entered and checked, RUN the pro- 
gram, and, after pressing P to replace the Rules with the Game 
screen, a domino should be printed at X. Do this a few times 
to make sure it changes at every RUN. If it does not, then 
something has been entered wrongly. 


1180 KS=NIDSC AS, 2.1 4M TOS BS. 1 

1118 LOCATE 2.25: INPUT "CAH YOU Gory 

CHE" ES 

1128 IF ES="H" THEN Ax=AH+1:LOCHTE 3 

5.6°FRIHT Aw: GOTO Lise 

1138 IF Es=""" THEM FREFR+1:LOCATE & 

S.4:PRIHT FR:GOTO 1158 

114 IF ES >"H" OF ES? 2"'" THEN GOTO 
11148 

1156 LOCATE SS.8: PRINT "2: "G INT. Aa-F 

wae 

1166 LOCATE 2.25: 1HFUT "“EMTER FE FOR 

AMOTHER GAME" GPS 

1178 IF P$="F" THEN CLS:GOTO 66 


Line 1100 now makes a string (K$) out of the two com- 
bined RANDOMIZED domino halves, and the next few lines 
begin to play the game with an INPUT line (1110) which gives 
the answer (Y/N) the variables E$. The following lines either 
go back to 1030 to repeat the domino presentation at X, or 
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to 1180, whilst adding to the score. At 1150 is a routine for 
use at the end of the game; with 1170 sending the computer 
back to line 60 to re-draw the game screen from scratch. 


1156 LOCATE 2,.25:PRIHT " 

"SLOCATE 2.25: IMFUT ' 
WHERES TOP 2" 5 3 
1136 LOCATE 2.25:FPRINT " 

"SLOCATE 2,25: INFUT | 
WHERE: SIGE 3" 7% 
126u IF *$="A" THEM “#=4 
12705 IF ®$="B" THEM =? 
1216 IF #$="C" THEM 
1215 IF x$="D" THEN #=13 
l2ee IF #$="E" THEM #=16 


1225 IF X$="F" THEN ¥=19 
1230 IF x$="G" THEN x=22 
1240 IF V¥$="A" THEN Y=4 


1245 IF Y$="B" THEN v=? 
250 IF ¥$="C" THEM Y=14 
1255 IF Y$="[" THEN ¥=13 
126g IF ¥$="E" THEN Y=16 
1265 IF ¥$="F" THEN ¥=13 


tera IF Y$="G" THEN Y=22 

12388 LOCATE 4.7: FRIHT KS: GOTO 123 
1236 LOCATE 12.22 SPRINT : : FOR, 
KX=106 TO 56 STEP -S3:SOUHD 1.4. 16+ HEK 
T ®:GOTO 1666 


In line 1130 a Y answer sends the computer to 1180. At 
that line is the beginning of a routine that recognises the 
domino at X which you want to use in the pattern, and sends 
it to the location you stipulate when answering the INPUTS 
at lines 1180 and 1190. Line 1280 actually prints the domino; 
line 1290 plays a tune and sends the computer back to 1060 
to produce another random domino at X. 

This looping routine continues until you have used up 225 
dominoes (you can alter the number in line 1030 if you wish). 
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At 225 dominoes the computer goes to the routine at 1150, 
prints the average score (INT(AX/FX)), and then asks if you 
want another game. Line 1170 (if R is answered) clears the 
screen and goes to 60. 

With these entries the game is virtually complete, but 
before you start playing there are a few lines that can now be 
erased, for their purpose (to prevent the computer going past 
a section while the program is incomplete) is now finished. 
Lines 2999, 3999, and 4999 can now be deleted. You may 
wish to retain the program at 8000 for reference, it won’t 
affect the game itself. If not, then delete these lines as well. 

The game should now play correctly, and you will find 
that with line 1030 set at ‘AX=225’, you have an equal chance 
of winning or losing. That is an average of 1 placed out of 
every 8 dominoes used. Reducing AX to 200, makes it 1 in 7 
dominoes — much harder. Of course, by cheating you can 
win every time; but then, what is the point of that? 

One final point: if you do lose, the computer tells you so, 
and offers you another go. If you win there is no response, 
and you will have to use ESC and then RUN to start all over 
again. If you have advanced sufficiently in your programming 
to do so, why not try to include a routine that makes the 
computer acknowledge the winner? Try it as a project it 
should not be too difficult. Remember, however, to put the 
whole game onto tape before you start altering it. Then, if 
anything does go wrong, you can clear the computer, and start 
again with LOAD “”’. 
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Chapter Three 
HOW TO THROW DICE 


While working on the game of Domino Patience it occurred 
to me that a half domino would form a good Die (the singular 
of dice). Then I remembered an old game of ‘Chuck-a-Luck’, 
in which three dice were thrown. You bet on a number, and if 
it turned up once you got your money back; if twice, then 
double your money; and if thrice, then treble your money. It 
would make a nice computer game, and would divide easily 
into sections to form a skeleton, such as we used last time. 

A graphics section for making the dice can be borrowed 
from Domino Patience, using only the half domino, and 
without the blank. That could start at 5000. The screen 
can be laid out in section 4000. The dice must be thrown to 
their positions at line 3000. The dice must be converted to 
ordinary numbers for scoring in section 2000, and the moves 
of the game could start at line 1000. That produces the 
following skeleton. 


18 REM CHUCK -A-LUCE 

20 REM *¢EREREEEEEE 

3H BORDER &: INK 1.6:INE @.24:CLS 
44 GOSUE Sega 

5a GOSUe 40a 

64 GOSUB SBae 

fe GOSUB Sane 

66h GOSUB Laan 

1000 REM GAME 

11 REM £eaS 

19398 LOCATE 2. 22:57TOF 
2Heu REM DICE To NUMBERS 
SALA REM $EEEESEESEEEEEE 
2939 RETURH 

shoe REM THROWING GICE 
SHLAA REM $RAASEEEPREESSE 
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3333 RETURH 

4406 REM GAME SCREEN 
4410 REM Fee RRERERE 
4599 RETURH 

Sia REM GRAPHICS 
SHE REM Aaa 
o939 RETURH 


Following what I believe to be the best method in writing 
programs we will start with the graphics section, and work 
our way forward to the beginning of the program. For the 
dice we need just six characters (no blank). The same CHR$ 
numbers will be used as in the last game, so there will be 


little confusion, but of course there will 


be no number 240, 


for the blank is not now needed. Therefore the first line to 


enter will be SYMBOL AFTER 241. 


S828 SYMBOL AFTER 241 
838 SYMBOL 241,255,255, 255. 2351,255, 
2oo4 200. 200? REM ee 1 
S844 SYMBOL 242.255 ASS. 255,255,255, 
249,255,255 REM DIE 2 
SHS SYMBOL 243.255.1559, 255,.231,255, 
é49,255, 255 REM DIE 3 
Hee SYMBOL 244,255. 153.255, 255,255, 
155,255,255: REM CIE 4 
SOF SYMBOL 245,.255,153.255.231,255, 
153,255,255: REM DIE S 
SHS SYMBOL 246,255,155. 255,153,255, 
133,255,255: REM CIE 6 


In order to see whether or not those graphic characters have 
been entered correctly we will use two lines in section 3000. 
One of them will remain there, and the other (line 3030) can 


be deleted when we have seen the result. 
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S826 AS=CHES! 241 O+CHR SY 242 9+CHR SC C43 
J+CHRS. 244 0+ CHR. 245 + CHS! 246 3 
S428 LOMATE 18.18:FPRIMT AS 


When the program is now RUN a line of dice (from 1 to 
6) will appear near the middle of the screen. Line 3030 
can now be deleted, and we will proceed with section 4000, 
the Game screen. 

For making a lay-out such as this it is essential to use a 
plotting board, even if it is only roughly drawn on paper. 
If you have not read the previous chapter, then do so now. 
Pay attention to the details of how to make such a board, and 
make one now. Even though it is possible to just enter the 
listings I shall give, it will be to your advantage, if you wish to 
learn programming, to go through all the motions of planning 
this game. 

A representation of a table top should be shown on the 
screen, on which to roll the dice. It can consist of a solid 
black surround to the table top. This will occupy a space 
from 1 to 19 (X), by 7 to 17 (Y). Pencil this in lightly to 
form a surround at rows 7 and 17, and down column 19, 
This encloses the dice rolling positions. 


4926 FOR A=1 TO 18:LOCATE #7: FRINT 
CHES! 145 9°HEAT & 

44s FOR «=1 TO 16:LOCATE #17: PRINT 
CHES. 1d55:HEAT & 

4044 FOR ‘=F TO if :LOCATE 19.7: FRINT 
CHES! 145 0°HEAT ‘rf 

4056 PEM 2: FOR sat Tu 16:Fo IF es Td 
16: LOCATE “TO PRIHT CHRS¢ 26? oO: HEAT ° 
‘HEAT &: FEW 1 


When this is RUN there will be displayed at the left middle 
of the screen an area of bluish green surrounded by a solid 
black line, which we shall call the table top. Notice the way in 
which line 4050 creates the patch of blue, using PEN 2 at its 
commencement, and PEN 1 to finish. The dice will roll on 
this table, but more of that later. CHR$(143) and CHR$(207) 
are standard Amstrad characters. 

We must provide a title for the Game screen: Chuck-a- 
Luck. Pencil that in on the plotting board from 13 to 28 
(X), on row 2 (Y). That is about central. With a Cross at 
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‘each end, and printed in red (PEN 3) that should be 
satisfactory. 

A line of instruction is then needed: ‘Place your bet on a 
number (1—6)’, and that can be pencilled in on row 4 (Y), 

- starting at column 5 (X). The statement of money available is 
left. Put ‘You have £ ’ at column 23(X) and row 6(Y). Then 
comes the Score position at 24,9; the conversion of dice to 
their equivalent numbers (in order to pinpoint those that are 
equal to the number on which you bet) at 21,11: 21,13: 
and 21,15. At the bottom a statement of the odds you have 
been offered: at 10,19:10,20: and 10,21. 

Lightly pencil these on the plotting board, so that, later on 
when the program is being written you will know where to 
place the various numbers that need to be entered. This 
matter is emphasized because eventually, when writing your 
own programs, you will realise that it is essential. 


4464 PEH 3:LOCATE 13,.2:PRINT “4 CHUC 
K-AW-LUCK 4" FEH 1 

4976 LOCATE 5.4:PRINT "PLACE YOUR BE 
T OW A NUMBER ¢ 1-65" 

4054 LOCATE 23.6:PRINT "YOU HAVE £ 


40390 LOCATE 24,9:FPRINT "SCORE" 
4104 LOCATE 21.11:FRIMT "DICE 1:" 
4116 LOCATE 21.13:PRINT "CICE 2:" 
4126 LOCATE 21-.15:PRINT "DICE 3:" 
4134 LOCATE 14.19:PRINT "1. CORRECT : 
MOWEY BACK" 

4146 LOCATE 14,.28:PRINT "2.CORRECT: 
DOWBLE BACK" 

4154 LOCATE 16.21:PRIHT "S.COURRECT: 
TREBLE BACK” 


Gat 
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Notice the PEN 3 (red) in line 4060, and the way PEN 1 i: 
used at the end to revert to black. This completes the section 
at 4000, and we move to 3000, where the dice are rolled on to 
the table top. This entails some serious thinking, for it is 
necessary to give each die the appearance of rolling along the 
table to its resting position. Fortunately this is easy to do by 
arranging that a space is printed immediately behind each die 
as it moves on; but it has to be in PEN 2 (blue) because the 
table top is blue. 

In addition we must see that each die is different: that it is 
produced randomly. For this we will borrow the RND routine 
used in the last game but with some additions. 


BS=AS 

CS=HS 

RAHOOMIZE TIME 
O=THT* RHODA +1 
P=THT¢ RHDA6 o+1 
BEIMT: RHDA6 a+ 1 
RS=NIDS0 AS,0.1 4 
SS=MI0S BSP. 12 
TH=MIOS CH.O,19 


Notice that A$ is made to equal a string of six dice (1 to 
6), and that B$ and C$ are given the same value. O, P, and Q 
are made to equal the RND number, and then come lines 3090 
to 3110. 

These three lines need studying, for they separate out one 
of the string of six dice, and do this randomly. R$ is made 
to equal a single, randomly chosen die using 0. S$ uses one 
from P, and T$ uses one from Q. The use of three sets in this 
way ensures that the computer produces each one separately, 
and this prevents the random factor from becoming blurred 
(see listing on p.31). 

When these lines have been entered RUN the program. Each 
die will roll in a leisurely way, which may seem to be too slow. 
Possibly it is. However, this slowness has a cause, and a little 
study of one of these lines will do more to teach you about 
the way a computer performs its task than would thousands of 
words. 


0 Se Se ee Se Ss 


—! 
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3136 FOR #=1 TO 16:LOCATE %.18:FRINT 
RS:FOR 2=1 TO 15:FEH 2:LOCATE 2.18: 
PRINT CHES¢ 267 9: NEXT 2:PEH 1:HEAT a“: 
SOUHD 1,608,268 
3144 FOR #=1 TO 14:LOCRATE #%.12: PRINT 
S$:FOR 2=1 TO 13:PEW 2@:LOCATE 2.12: 
PRIHWT CHRO far os HEXT 2:FENM 1:HEXT #&: 
SOUND 1,55. 26 

3156 FOR #=1 TO 15:LOCATE #%.14: PRINT 
TS: FOR z=] Ta 14:FEH = LOCATE 2.14: 
FRIHT CHES! 267 o> HEAT 2:PEH 1:HEAT &: 
SOUL! 1,508,260 


Line 3130, for instance, consists of a Z FOR/NEXT loop 
enclosed by an X loop. It is that Z loop (printing a blue 
character (CHR$(207)) behind the die as it rolls that slows it 
up. Between each printing of the die the computer has to go 
‘into the blue mode (PEN 2), print CHR$(207), and go back 
into the black mode (PEN 1) to print the next die. 

If line 4050 (the one that prints the blue table top) had a 
REM inserted into it, so that it didn’t print; and if line 3130 
had the Z loop entirely removed, and a space (“ ”) placed 
directly in front of R$, then the die would roll so fast that it 
would be a mere flicker that comes to an abrupt stop at its 
final position. 

To really master the intricacies of such moves it is advis- 
able to experiment in this way. A few moments pressing keys 
and EDITing will teach you rapidly, but be sure to record the 
program on tape first. If you decide to dispense with the 
blue colour, so that the dice will move faster, it is up to you. 
There are many more ways to roll the dice in games like this, 
but this is the one I have chosen because it has so many points 
that illustrate a number of features. 

Notice the way SOUND is used at the end of each throw. 
Of the three numbers after SOUND, the middle one controls 
the pitch of the note. It can be altered to suit yourself. The 
final number affects the length of time it sounds but this is 
‘affected by what the computer does next. 
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Section 3000 is now complete, and we must move on to 
section 2000, in which the dice are scanned, and transformed 
into numbers that are printed after Dice 1, Dice 2, and Dice 3. 
They are also given a variable letter (K, L, and M), under 
which letter they will be remembered by the computer when 
we need to use them during the game. 


2620 IF RS=MIDS¢ AS. 1,19 THEW K=1:LOC 
ATE 23.11: PRINT 
2ose IF RS= MIDS. AS. 2.19 THEH K=2:LOC 
ATE 25.11: PRINT 
2040 IF RS=MIDSC AS. 3,19 THEN K=3:LOC 
ATE 23.11:FRINT K 
2658 IF RS=MIDSOAS.4,1%9 THEN K=4:LO0 
ATE 235.11:PRINT kK 

e060 IF RS=NIDSCAS. 5.1% THEN K=5:LOC 
ATE 23,11:FPRINT KF 

eare@ IF RS=MIDS0AS.6.1%9 THEM K=6:LOC 
ATE 23,.11:PRIHT EK 


These lines are tedious to enter, but if line 2020 is compar- 
ed with 2030 it will be seen that the only differences are to 
the line number, to the 1 after A$, and to the 1 after K=. It 
is my practice to type one line properly, check it thoroughly, 
and then make the necessary alterations to form each succeed- 
ing line. That is quicker and less tedious. 

If those six lines have been entered correctly, and the 
program is now RUN, a number should appear at the DICE 1 
position just before the Break line appears at the bottom. 
That number will be the same as the top die if you have 
entered everything correctly. 

There are twelve more lines to enter in section 2000. 
These have other differences than the first six lines, for they 
are for different dice. In section 2000, therefore, there are 
three sets of six lines each (see listing top of p.33). 

With the completion of section 2000 the preliminary 
clothing of the original skeleton is nearly complete. RUN it 
now, and see that the program produces the three dice 
correctly, and that the correct numbers are produced for 
each of the three dice. 


m2 17% 
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ei IF S$=MIDS$¢BS,.1.1%9 THEN L=1:LOc 
ATE 26.13: FRINT L 
2110 IF S$=MIDS(BS.2.1% THEN L=2:LOC 
ATE 23.13: PRINT L 
2izé IF SS=MIDS¢ BS. 3,15 THEN L=3:LOCc 
ATE 23.13: PRINT L 
2138 IF SS=MIDS(6S.4,1%5 THEN L=4:LOC 


ATE 23,13: PRINT L 
2i4 IF SS=MI0S¢BS.5,.19 THEN L=5:LOC 
ATE 23,13:PRIWT L 
2156 IF S$=MIDS B$.6,15 THEN L=6:LUr 
ATE 23.13: PRIHT L 
2cO IF TH=MIbS¢C$.1.19 THEN M=1:LOC 
ATE 25.15:PRINT M 
é2i@ IF TS=MNIDS°C$.2,19 THEN M=2:LOC 
ATE 25,15:PRIWT 
é22i) IF TSahI0S¢0$,.3.19 THEN M=3:LOc 
ATE 26.15:FRIWT M4 
SH IF TS=NI0S¢C$.4,1%4 THEM M=4:LOc 
E 2o.15:PRINT M 
244 IF TS=MIDS¢C$.5.1%9 THEN M=3:LOC 
E 23.15:PRIHT 
ea IF TS=MID$¢C$,6.19 THEN M=6:LOC 
ATE 26.15:PRIWT 

We go to 1000 now, and because there are a lot of controls 
in’ this section it will be well to know the purpose and 
position of all the ‘Variables’ used so far. 

A$, BS, and C$ are all equal to the six dice used. R$, S$, 
and T$ are each equal to a randomly selected die. O, P, and 
Q are the letters given to the RND functions of A$, BS, and 
C$ respectively. K, L, and M are given to the numerical 
equivalents of the thrown dice at the three positions. 

We shall have to make more variables: JX to represent the 
money at location 33,6; A to represent the money you bet 
(which will have to be deducted from JX), and will go to 
20,17; while B is to be the number you bet on, and that goes 
to 37,17. W represents the Score, and goes at 30,9. These will 
be enough to start off with. An INPUT comes first, at 2,23. 
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3.6:°PRINT J 
1,9: PRIMT W 
4PUT "PLACE ‘OUP 8 


SS CT am 


Go Ta Pt 


J 
bd 
L 
iA 
JH=JA-A: LOCATE 33,.6:FRIWT " , 
‘LOCATE St.8:PRIHT Je 

1854 LOCATE 24.17:PRIWT "YOU BET £"; 
A ~ tt cit il 

1a6e LOCATE 2.23: IMPUT "OH WHICH HUH 
Soha ge 


eT] ee Re 
Se Er tS 
Sr 


76 THEN GOTO 1666 
‘FRIHT 6 


aS 


1H50 GOSUE 300 5 
1188 GOSUE 2hAne 


With ‘GOSUB 3000’ at line 60, and ‘GOSUB 2000’ at 
line 70, each time RUN was entered the dice rolled. Now, 
because the game is starting, those two lines must be deleted, 
so that they can come into effect after the money has been 
bet and the dice number selected. These two GOSUBs must 
now be put at lines 1090 and 1100. 

In line 1020 £50 has been selected as the money available. 
This can be any amount you wish. It is given the variable 
JX, and is printed at 33,6. 

An INPUT at line 1030 is placed near the screen bottom; 
‘Place your bet’, and the bet you place is named A. In line 
1040 the bet is deducted from the money available (JX=JX— 
A), and is printed again at 33,6. In 1050 a line is printed to 
inform you that: “You bet £ ”;A (the amount you bet) 
“ON” (and this waits for the answer to the next INPUT). 

This is at line 1060, and asks for the number of the die 
on which you bet. This number is given the variable B. 1070 
merely makes sure that any number other than 1 to 6 does not 
affect the program, and 1080 prints the number (B) at 37,17, 
so that the sentence is now complete: “You bet £(A) on (B)”. 
Then come the two GOSUBs that make the dice roll, and 
print their numbers. Following the rolling of the dice come a 
number of complex instructions to the computer. 
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1116 IF K=B THEH WHbl+1:LOCATE 21,11: 
PRIHT "4" 

1126 IF L=B THEH WaW+1:LOCATE 31.12: 
FRIHT "#" 

113@ IF M=6 THEM Web+1 LOCATE 31.15: 
PRIWT "XR" 

1146 LOCATE 36.3:PRINT bi 


At this point in working out this program I first used Z as 
the variable for the Score (not W as it is now). The result 
surprised me, for the Score kept appearing as 15 plus what- 
ever score occurred. Searching through the program I found, 
in line 3130, 3140, and 3150, that Z had been used in a 
FOR/NEXT loop (as 1 TO 15). This had evidently registered 
in the computer’s ‘mind’ as a variable. I therefore changed 
the Z to a W in all the relevant lines in 1000, and thereafter 
it worked properly. 

This is the sort of thing to look for when writing a pro- 
gram. For some reason the computer had registered Z as a 
variable worth 15; perhaps because of the PEN 2 command, 
for that is powerful. It points to the moral that if some- 
thing does not work as it should, then search for a reason. 

The lines 1110 to 1140 tell the computer to print a star 
opposite any number that is the same as the one you bet on, 
and also to alter the score to correspond. The next few 
lines move the game on a little. 


115@ IF W=4@ THEM LOCATE 24,17: FRINT 


" VOU LOSE “:LOCATE 2,23°P 

RINT " ": GOTO 
15H6 

1166 IF W=1 THEH LOCATE 28.17: PRIWT 
"OU WIH "= JA+A  LOCAT 


E 35.6:FRINT Jx:GOTO 1546 

1176 IF Wee THEM LOCATE 2h. 1°: PRINT 
"OU WI "= et ARS OL 
OCATE 33.6:PRINT Jx:GOTO 1568 
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1166 IF Wes THEN LOCATE 20.17:FRINT 
"YOU Wik "i JAS A+6 ARS EL 
OCATE 33.6:FRIMT JK:GOTO 1500 

15 ote IF Jex=8 THEM LOCATE 2,23: PRINT 
“OU HAVE HO MOWE’ LEFT. ": FOR x=1 TO 
260 HE#T «: GOTO 1968 

vif FOR H=1e8 TO S@ STEP -S:S0UHE 1 


iS28 LOCATE 2.23:PRINT " 

"SLOCATE 2.23: 1IHFPUT "AW 
OTHER GO CY-Ho"G KS 
i336 IF KS="H" THEM GOTO 136 
1546 IF kS="" THEN GOTO 1556 
1558 W=e:LOCATE 3e.3:FPRINT W:eLOCATE 
2.23: PRINT " 


1568 PEN 2:LOCATE 16,18:FPRINT CHR 2 
Of o>: LOCATE 14.12: PRINT CHES! 2a7 9: LOC 
ATE 15.14: PRINT CHRS* Car o:PEH 1 

1578 LOCATE 23.11:FRINT " ": LOCAT 
E 25,13:PRINT " "+LOCATE 29.15:PR 
IMT " ": GOTO i625 

19968 CLS:LOCATE 6.12:PRINT "THANK 40 
WoFOR PLAYING": FOR H=ig6 TO Se STEF- 
J: SOUMD t.H.26:NEAT HM: 

1916 LOCATE 4.16:FRIHT "FOR ANOTHER: 
GAME ENTER ESC TWICE": LOCATE 4, 26: PR 
IMT "THEH ENTER RUM FOR AHOTHER GAME 


1924 GOTO 1928 

Lines 1150 to 1180 tell the computer what to do whether 
the score is 0, 1, 2, or 3, and increases (or not) the money 
available in each case. Each line also sends the computer to 
line 1500, where there are more instructions leading to a 
return to 1025, (incorporating a tidy-up procedure) or to 
1900. 
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Line 1900 thanks you for playing, sounds a tune, and then 
telis you to enter RUN for another game. 1999 RETURN is 
not now needed, so is deleted. 

These last lines of the program have been explained only 
briefly, but to understand them properly study listings on 
pages 34, 35 and 36 together. Follow through the instructions 
given in each case, and write down on a piece of paper all the 
variables, and what they stand for. If you do this you will be 
well on the way to becoming proficient at programming. 

When the complete program is safely taped, and checked 
with CAT (see the User’s Instruction book, Ch.8, p.5), then 
try experimenting with any part of it that you do not under- 
stand completely. Only in this way is it possible to really 
master the art of programming in BASIC. 
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Chapter Four 
A DRAUGHT BOARD AND GAME 


As a change from dominoes and dice I decided to make this 
game a simple one of Draughts for two players. Games can be 
written in which the computer takes a part, but these can 
become very complicated, and not easy to understand. The 
intention of this book is to help beginners write games for 
themselves in as simple a way as possible, so simple examples 
are given. 

Once again we must first produce a skeleton plot of the 
game: a section each for graphics; screen layout and rules; 
black moves; and white moves. Graphics will be at 5000; the 
screen at 4000; black moves at 1000; and white moves at 
2000. The first listing is: 


REM DRAUGHTS 
REM REE 
BORDER ea 1,4: IHE @.26:CLS 
GOSUE See 
GOSUE Fit 
REI BLACK MOVES 
REM REEEPARERE 
LOCATE 2.22: S5TOF 
FEM WHITE MOWES 
REM SERRE RRRERS 
STOP 
REM SCREEH 
REM ##XRAS 
RETURH 
REM GRAPHICS 
REM RARE 
RE TUR 
Some of the sections are short, but they are separated well. 
The graphic characters will be tackled first, and there are only 
four of these: a black and a white piece; and a black and a 


— 
EO We he tS NR BS ON RS UE 
St bye im OT 
DARN 
SI So 


CACHAN PEE eS Ob Ooh 
ye ee a a 


ye atye UE Lycee ye 
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white crown. You should by now be sufficiently proficient to 
design your own, but I will give those I designed for they 
compensate for the fact that the Amstrad pixels are not quite 
so wide as they are high: the 8 x 8 pixels produce an oblong; 
higher than it is wide (not a square). Remember this when 
designing your own characters; it often pays to have a blank 
bottom line for the eighth number. 


2824 SYMBOL AFTER 246 

hth SYMBOL 246,.68,66,129,125,1259,66 
266,8:REM 0 

3448 SYMBOL 241.64,126.255.255, 255, 1 
26.68,8:REM # 

pal ba SYMBOL 242, 165,255, izo, 123, 123, 
123,66,60: Ref ee CROWH 

2468 SYMBOL 243.165, 255,255, 255, 255 
255,126,608: REM BLACK “CROWN 


That completes section 5000, and now the screen must be 
laid out. That will require a lot more thought if we want a 
reasonably sized board on the screen, and in this respect the 
more thoughtful programmer will score over one who is 
always in a hurry. So many board games of this sort are 
allowed only one character space for each square of the board. 
This is far too small, regardless of how well the game plays. 

A board with four character spaces (two above two) for 
each square will be about right for size. However, we want 
our black and white pieces to occupy one full character space, 
and they can only be put into a corner of the 2 above 2 
square. We need one character space to be positioned central- 
ly in the middle of each draught board square. 

To illustrate what is meant enter the following list. It is 
put at line 9000, well away from the program, so can be used 
separately by RUN 9000 (or LIST 9000) as is necessary. 


90Wa REM TEST 
9805 CLS 
9810 FOR ‘’ 


60 STEP 32: ORIGIN 
414, ‘¢: DRAM ' 


m 


20 FOR x=4@ TO 296 STEF 32:ORIGIN 
184: DRAM 8, 256°NEXT x 


8oT oD 


STEP S: FOR ‘Y=112 
Y:PLOT 48+ 


1a 4a + 
a 
La! 
iT; 
St 
un 
+ 
m 
t Dit 
x 4e 
iy, 
m= 
a 
_ 
ira 
lal 
= 
& 
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BH FOR A=8 TO 24a STEP 8:FOR “=45 
256 STEP 16:ORIGINM #.56:FLOT &, 48 
‘MERT A: HEAT A 
158 LOCATE 4,2:PRINT "AH BC OE FG 
‘LOCATE 2.4:FRIHT "A"? PRIHT PRINT 
B':PRINT:PRINT " C": PRINT: PRINT ' 
"SO PRIMT:PRIWHT " EE": PRINT: PRINT " F 
“SPRIHT: PRINT " G":PRIMT:FRIWT " H" 
9468 LOCATE 6.6:FRIHT CHRS¢ 24a >:LOCH 
TE 12,16:PRIHT CHRS¢ 2419 
9164 LOCATE 2,22: STOP 


e+ Ho 
i 
. 


eae oe 
le 


m= 


When this is entered correctly, and you RUN 9000, a 
pattern of lines will be drawn on the screen in the position we 
shall use for the draught board. Between the solid lines are 
other, dotted lines that indicate the position of the divisions 
between character spaces. Location letters have been placed 
outside the square, and one white piece has been placed at 
B,B; with a black at E,D. This illustration should help the 
above explanation. In drawing the draught board we have to 
place it where the solid lines are: which is midway between 
some character spaces. 

Before leaving that program at 9000 study it carefully. 
LIST 9000— will produce the full list. The solid lines are 
drawn in lines 9010 and 9020. Lines 9030 and 9040 produce 
the dotted lines; take note of how it is done; with an addi- 
tional FOR/NEXT loop, and with PLOT instead of DRAW. 
This program should be retained on tape, or you may prefer to 
write it down in some place where you keep such references. 

To proceed with the actual draught board. Using my 
plotting board I drew it exactly as it is used in program 9000, 
but we will only require four lines to surround it, for the 
black squares detail the rest sufficiently. 
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4015 CLS 

4628 ORIGIN 46,.366:DRAW 256.6:OGRIGIN 
46.104:DRAW 256,0:ORIGIN 448.164: DRA 
W,256:OGRIGIN 296,.164:DRAW @. 256 


4040 FOR x=72 TO 264 STEF 64:FOR ‘’=3 
26 TO 366 STEP 2:0RIGIN X,Y: DRAW 32. 
@:HEST ‘VvsNEAXT & 
4050 FOR X=40 TO 232 STEP 64:FOR ‘=z 
96 TO 328 STEF « 2: ORIGIN xT: DRAW 32, 
G:HEAT V¥iNEXT # 
4464 FOR K=72 TO 2é4 STEP 64:FOR ‘’=2 
64 TO 296 STEP 2@:OGRIGIN #.Y:DRAW Sz, 
O:NEAT 'Y: NEAT x 
4070 FOR «=4a TO 232 STEF 64:For ‘=e 
32 TO 264 STEP 2:ORIGIN &.Y:DRAW 32, 
@:NEXT YENEAT ¢ 
4456 FOR a=re TO 264 STEP 64:FOR ‘=e 
aa TO ese STEF 2:ORIGIH %,. 7: DRAW Sz, 
NEAT VY sWNEAT & 
4494 FOR #=46@ TO 232 STEP 64:FOR ‘'=1 
65 TO ra) STEF 2: ORIGIH 4.7: DRAW 32, 
WHET VY HHEAT # 
4100 FOR *=72 TO 264 STEP 64:FOR ‘Y=1 
36 TO ioe STEF (2: ORIGIN mT: DREAM 32. 
O:HEAT ' ‘HEAT 3 rs 
4114 FOR | n=44 TU 232 STEP 64:FOR ‘’=1 
a4 To 136 STEF 2: ORIGIN #7: DRAW Se. 
@:NEST ‘fs HEXT 7 


The outside lines are drawn in 4020, and the following 


eight lines produce the eight rows of black squares. Take note 
of how they do that, for each line contains a nested loop (Y 
inside X). The X command contains STEP 64, so that it 
jumps to the beginning of each of the four squares in turn. 
The Y command (in line 4110) is just 104 TO 136, so, because 
the DRAW command is 32,0 (in the- X position) it draws 
horizontal lines 32 pixels long in all the Y positions, until 
they are used up, and then goes to the next X position. 
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Our next move is to enter the letters that will locate the 
different squares on the board. Because we have arranged 
the board in a position where its top left square encloses 
the LOCATE/PRINT position at 4,4:, it is now possible to 
give the letters a number equivalent. This is done in line 4140. 


4128 LOCATE 4,2:PRINT “A BCDEFC 
H": LOCATE 2.4:PRINT "A": PRINT: PRINT 
" BO PRINT:PRINT " C":PRINT: PRINT | 
wv uw 

4138 LOCATE 2,12:PRINT “E": PRINT: PRI 

HT " F"':PRINT:PRINT " G": PRINT: PRINT 
wu H uw 

4144 A=4:B=6:C=S:D=1G:E=12:F=14:G=l¢ 
‘HE1e 


If the program is now RUN a board will be drawn, with the 
location letters at the top and side. Remember always that 
these have to be entered separately during the play, with the 
top one first. There is a blank space on the right of the 
screen, and we shall now fill this with instructions and a title. 


4154 PEN : S°LOCATE 22.2:PRIHT "* & DR 
AUGHTS * £E": FEH 1 

4166 LOCATE 21-.4:PRIHT "To REMOVE Pi 
eces: ""LOCATE 21.5: PRIHT "Press TOF 
letter. ": LOCATE 21,.6:PRINT "then SID 
E letter. 

4178 FEW S:LOCATE 21,.7:PRIHT "S EP 
HFEATEL VY": PEW 1 

4154 LOCATE 21,.93:FRIHT "To ENTER Pie 
ces: ":LOCATE 21.186:PRINT "Press TOF 
letter." :LUCATE 21511:PRINT "then SI 
CE letter. 

4196 PEN 3:LOUCATE 21,12:PRINT "S E P 
RARATEL Y":FEH 1 

4200 LOCATE 21-16:FRIHT “Answer the 
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INPUT" :LOCATE 21.,17:PRINT "Questions 


4210 PEW 3:LOCATE 2£1,.19:FRINT "CAR 
EFULL ‘*":FEN 1 


These are straightforward entries of text at given locations. 
Some lines, however, are in red (PEN 3). Notice the way in 
which the change of colour is confined to its own line (lines 
4150, 4170, 4190, and 4210). Used in this way, with PEN 1 
at the end of each line to switch it back to black, there is no 
chance that other lines will be printed red. 

The only part of section 4000 that remains is to place the 
black and white pieces in position, and the lines for doing this 
are brief. 


4224 FOR “=H TO G STEF 4:FOR =A TO 
C STEP 4:LOCATE &, 7: PRINT CHRS* 2405: 
NEXT ‘Vv: NEAT 

4236 FOR A=B TO H STEP 4:‘=B: LOCATE 
KY: PRINT CHR 246 9:NEXT % 

4246 FOR X=B TO H STEP 4:FOR ‘=F TO 
H STEP 4:LOCATE #.7:FPRIHT CHRS« 241): 
NEXT VY:MERT 

4250 FOR «=A TO G STEF 4:‘/=G:LOCATE 
AeYORPRINT CHR S241 0: NEXT % 


Pay particular attention to the way the computer deals 
with line 4220 (and the others in this list). It reads like this, 
with the computer’s ‘thoughts’ in brackets: FOR (that means 
a repeat is coming) X=A (that means 4) TO G (that means 
TO 16) STEP 4 (that means at 4, 8, 12, and 16): FOR 
(another repeat) Y=A (that means 4) TO C (that means 8) 
STEP 4 (that means at 4 & 8): LOCATE X,Y: (I’ve done that) 
PRINT CHR$(240): (that’s easy, PRINT it at 4,4): NEXT Y (I 
must go back and PRINT it at 8,4) NEXT Y (back to 12,4) 
NEXT Y (back to 16,4) NEXT Y (that’s finished) NEXT X 
(go back and repeat it all starting at 8,4: at 8,8: at 8,12: at 
8,16) NEXT X (Ive finished that. Next line Please). 
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Of course the computer doesn’t think (or does it?). In any 
case that is how the various numbers and letters are interpret- 
ed. This is emphasized to bring out one point: be careful with 
your own thinking when giving a computer instructions. At 
my first entering of that line I thoughtlessly entered ‘FOR 
X=A TO C STEP 2’. I was thinking, wrongly as it turned 
out, that the computer would know I meant alternate letters. 
I was wrong. It had already changed the letters into numbers 
when it met STEP 2. Therefore it printed the pieces on 
every white and black square along that line. Remember that 
a computer is simple-minded, and anxious to do exactly as it 
is told. It interprets very literally all you enter, so be careful 
how you phrase each line. 

This brings up another point. The Amstrad prints its 
‘Break Ready’ notice at a position on the left of the screen 
just after the last command it has executed. Therefore, 
whenever you put a STOP line in a program, word it as I have 
for line 1999, that is: LOCATE 2,22: STOP. This ensures 
that after it has printed anything, and is finished, its ‘Break 
Ready’ notice will be in the least annoying place. If you use 
2,23: STOP, it will ‘nudge’ the whole program up one space 
to get its message in, for the message takes up three lines, 
and starts after 2,23. 

The game screen (section 4000) is now complete, with 
the black and white pieces located in their squares ready for 
playing a game. Therefore we shall move to line 1000 for 
the first black move. The simplest way to make this move is 
to enter the location from which the black is to move, and 
follow it with the location to which it has to go. 

For this game, which consists mainly of moves, I have 
decided that the best INPUT routine to use for each move is 
with INKEY$, for then the letters of the location are pressed, 
and the ENTER key is not used. One decides, for instance, 
that black is to move from DF to EE. The computer’s speed 
of execution is such that with normal key pressing each 
question will be presented on the screen in turn as fast as you 
can key them in. 

There will have to be a separate routine at 3000 to enable 
the computer to recognise the letters entered as representing 
the location numbers. First, however, we will enter the 
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preliminary moves for black in section 1000. 


1920 LOCATE 2.22: PRINT 


TOF NO. 97 
1838 GOSUE 3000 
1adc 


SIDE HO. 

LS BOSLE 21 he 
{Hen LOCATE ae 
167 LOCATE 2s2e 
PHO. 3? 

1668 GOSUB 3688 
1894 LOCATE ene 


DE HO. 2 
1144 GOSUB 31Be 


Poete see: 


"BLACK FROM? 


Z:PRIHT "BLACK FROMT« 
PRINT " " 
PRINT “BLACK TOR TO 
2: PRIHT TOT SI 


"BLACK 


When these have been entered it will be seen that they 


contain four GOSUB commands. 


now: 

3608 JS=INKEYS : 
6a 

3863 IF J$="A" 
Shia IF J$="B" 
S615 IF Jg="C" 
3624 IF JS="D" 
S825 IF J$="E" 
SHS IF J&="F" 
3635 IF JS="G" 
S446 IF J$="H" 
3445 RETURH 
S168 KS=INKEYS: 
1a 

S185 IF Ke="A" 
3118 IF Ke="B" 
$115 1F ke="C" 
gize IF ke="0" 
3125 IF KS="E" 


These must be entered 


IF J$="" THEH GOTO 3 
THEM “#=4 
THEH “#=6 
THEM #=8 
THEN “=18 
THEH “#=1e2 
THEH “~=14 
THEH “#=16 
THEH #=15 
IF kKS="" THEM GOTO 3 
THEM ‘Y=4 
THEM Y=6 
THEN ‘= 
THEM ‘Y=18 
THEH ‘f=1e2 
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3136 IF K$="F" THEN Y=14 
3135 IF KS="G6" THEN V=16 
3146 IF KkS="H" THEN ‘=16 
3145 RETURH 


There are two sub-sections in this long listing, and they 
have been arranged in such a way that they can be used by 
either black or white. Therefore we shall make another series 
of moves (for white) before explaining how section 3000 
works. 


262 magi 2.2é2°:PRIHNT “WHITE FROM? 
TOP Hi. . 
238 GOSUE : 3808 
2646 LOCATE 2, 


22 :PRIHT “WHITE FROM? 
SIDE NO. a7 : 


2634 GOSUE 2146 

2664 LOCATE «,.Y: PRINT " " 

267ra@ LOCATE 2,22:PRIHT "WHITE ToO?e TO 
PNG. OF ss 

2938 GOSUB sabe 

23a LOCATE 2.22:PRIMT “WHITE TOTS! 
DE NO. oF ie 

2164 GOSUB 3166 


Also enter these four lines: 


1110 LOCATE X,Y:PRINT CHR$(241) 
1120 GOTO 2020 
2110 LOCATE X,Y:PRINT CHR$(240) 
2120 GOTO 1020 


The white moves are almost identical with those of black. 
In the sub-routine at 3000 it is fairly easy to see what has been 
done. Line 3000 tells the computer to wait until a key is 
pressed: J$=INKEY$: IF J$=“* ” THEN GOTO 3000. Lines 
3005 to 3040 tell the computer which X number to use for 
each of the letters A to H, and line 3045 returns the computer 
back to the line after the one that sent it to 3000. 
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Lines 3100 to 3145 are a repetition of 3000 to 3045, but 
directed at the Y number this time. These two sub-sections 
are a good demonstration of how the GOSUB/RETURN 
routine can save lines in a program: without it each of the 
ten lines would have to be placed in the section at 1000 and 
2000 in the places at present occupied by the line GOSUB 
3000, or GOSUB 3100. These two sub-sections will be used 
fairly often during the game. The use of INKEY$ for INPUT 
also has many advantages, so make a note of how it is done. 

With these lists now entered (plus those four extra lines) 
you will be able to move any piece on the board to a differ- 
ent location, subject to the rule that black and white move 
alternately. Use RUN now, and check that the moves are 
operating correctly. If they are not, then you have made an 
incorrect entry. Lines 3000 and 3100 are particularly 
sensitive. There is a space between : and IF. No space 
between the inverted commas (“”’). A space is between “” 
and THEN. A space between THEN and GOTO. And a space 
between GOTO and 3000 (or 3100). It is most important to 
watch all punctuation and spaces. ' 

Up to now provision has not been made for jumping 
(possibly over more than one); for the removal of a jumped- 
over piece; or the exchange of a piece for a crown. There are 
many complicated ways in which a computer is made to 
recognise such moves, but in this game such complications are 
not called for. It will be kept quite simple, and more like 
the situation would be if you were playing with an actual 
board and pieces. This entails using a fair amount of 
tepetition, but by using INKEY$ the questions can always 
be answered with a single key (without ENTER). These 
next few lines make provision for jumping, and for 
crowning. 


111@ LOCATE 2,22:PRINT "IS IT A CROW 
No YAH oe 7 

1115 LS=INKEYS: IF LS<>"Y" AND LS< >" 
N" THEM 1115 

1120 IF L$="H" THEM LOCATE #. 7: PRINT 
CHES. 241 3 
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1125 IF LS=""" THEH LOCATE #. 7: PRIKT 
CHES 243 3 

1136 LOCATE 2.22: PRINT “HAVE “GU JU 

PEC YAH oe 

1146 MS=INKEYS: IF MSi>"Y" AND Ms<7" 

H" THEM 1144 

1156 IF M$="N" THEN GOTO 2eécu 

1166 IF M$=""" THEN GOTO 1176 

1176 LOCATE 2.22:PRIWT "REMOVE WHITE 
FROM TOF NO. 37 be 

1160 GOSUB Sea 

1194 LOCATE 2.22:PRINT "REMOVE WHITE 
FROM: SIDE Hi. oF PS a 

lee GOSUE Sie 

1216 LOCATE #.7: PRINT " " 

leeu LOCATE Z 1 BP: FRIHT "CAN YOU JUMP 
AGAIN eH oF . 

1236 HS=IHKEYS: IF HSi5"7" AE Nee > 
H" THEH lesa 

12446 IF H$="H" THEM GOTO 2H2e 
256 IF Hg=""°" THEM GOTO 1174 


It will be seen that the line 1110 has been changed to 
introduce the Crown question. The spaces after the question 
mark in some questions are there to ensure that all the 
previous question in the space has been completely erased. 
Because all the questions are located at 2,22;, and some are 
longer than others, this precaution is necessary. 

More lines are needed for a routine that will also cover all 
aspects of jumping (either single or more) so the original line 
1120 was removed. Now, at line 1130, starts a loop that goes 
to 1250, and comes back to 1170 if more than one jump is 
made. In the process of removing jumped-over pieces the 
sub-routine at 3000 and 3100 are used again. 

If no jumps have been made the program goes to 2020, and 
that will be our next move. The lines can all be entered by 
EDITing from line 1110 onward; changing them to 2110 
onward, and changing colours and GOTOs when necessary. 
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2118 LOCATE 2.22:PRINT "IS IT A CROW 
NOAH IF : 

2115 L$=INKEys: IF L8<>"Y" AND Le<>" 
N" THEN 2115 

2120 IF L$="N" THEN LOCATE 4, : PRINT 


CHRIS! 248 9 

e125 IF LS="*" THEM LOCATE 4:7: FRIHT 
CHR 242 & 

2138 LOCATE 2.22: PRINT "HAVE VOU JUN 
PED eM 3 


2144 MS=INKEYS: IF MBc>"Y" AND Mo<7" 
N" THEH 2146 

2154 IF M$="H" THEH GOTO lace 

cise IF M$=""'" THEH GOTO 21768 

217 LOCATE 2.22:PRINT "REMOVE BLACK 
FROM TOP NO. 9% * 

2188 GOSUB Saar 

2194 LOCATE 2.22:PRIHT "REMOVE BLACK 
FROM: SIDE NO. a 

22646 GOSUB 314 

221@ LOCATE ee PRIHT " " 

2226 LOCATE 2@.22:FRIHT "CAH YOU JUMP 
AIGAING 7H 3? " 

2230 NS=INEETS: IF NS<5"Y" AMD Ne >" 
H" THEN 2236 

2246 IF N$="H" THEH GOTO lazy 

2250 IF N#=""" THEH GOTO 2174 


When this list has been entered the program is complete. 
It can be tested and played as you would with an ordinary 
draught board and pieces. The constant questions (Is it a 
Crown, and Have you jumped?) may annoy you. In that 
case try modifying the program to ask these questions only 
when necessary. It can be done in a number of ways, but 
involves some most convoluted thinking. Make sure you have 
the program safely taped before you try altering it. 
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When interested in playing, one is inclined to be impatient, 
and you may enter a location letter when the question is 
asking tor Y or N. Therefore the lines at 1115, 1140, 1230, 
2115, 2140, and 2230 have been modified to prevent a 
‘Break’ if you press the wrong letter. Compare lines 1115 and 
3000: you will then see the kind of difference that has been 
made. 

The STOP lines (1999, 2999) may now be removed. If you 
retain the lines at 9000 onward it will not affect the program 
at all. In the next chapter we will tackle the game of Reversi. 


50 


Chapter Five 
REVERSI, USING COMPOSITE U.D.G.s 


The game of Reversi lends itself well to the methods used in 
the previous game, for it divides easily into sections: graphics, 
screen display, black moves, and white moves. The skeleton, 
or plot, devised for the previous game can be used almost as 
it stands. 


14 FEM REVERSI 

24 REM sR REE 

36 BORDER 2: INK 1,.@:INK 6.23:CLS 

44 GOSUB Sob 

34 GOSUB 4686 

1406 REM BLACK MOVES 

1414 REM 4KAAREAAEES 

999 LOCATE e. 22: STOP 
REM WHITE Moly 

REM LERKEAAE ENS 

LOCATE 2.22: 5TOF 

REM SCREEH 

REM RAREEK 

RETURN 

REM U.O.GRAPHICS 

REM 4EERPEREAREE 

RETURH 


Wie cE oe Go e Gt 
Ugh Se Se oe Ee ee yc ee a 


CHAcNn cA BS BH BProanrsr 
age ar Se a ee ee 


We start with the graphics, and there will be nine of these. 
In the game of Reversi the jumped-over opponent is replaced 
by the opposite colour, so there is no need for a replacement 
of the background. However, the counters are usually bigger 
than in other games, and occupy four spaces instead of one. 
Another difference brought about by the larger counters is 
that each square of the board can enclose four complete 
character spaces, instead of cutting across some of them, 
so we can devise counters to fill four character spaces each. 
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If you are still not sure how to do this the following extra 
program will soon teach you. It has been written to sit at line 
9000 onward, so can be entered and RUN without interfering 
with the game of Reversi. 


9460 REM TEST 
9465 CLS 
9016 FOR Y=48 TO 364 STEP 128:x=112: 
ORIGIN &.'¢: DRAW 256,.6:NEXT 
sac FOR K=11i2 TO 368 STEF 126: '‘/=48: 
GRIGIN &. 7%: DRAW 6.256:HEXT « 
9036 FOR A=1 TO 256 STEP 6G: FUR: ‘=46 
TO 364 STEP 16:X=1:ORIGIN #.Y:PLOT 1 
12+A,. @ NEXT Ys HEXT A 
9040 FOR A=1 TO 272 STEP 4: oe K=112 
TO 368 STEF 16:Y=1:O0RIGIHN 4.7: FLOT 
M.45+A HEAT «”:NEXT A 
9656 LOCATE &,.3:FRINT "1 1":L0 
CATE &:4:PRINT “263i 2631": LOCATE 
&.5:PRINT "64e68421s4d2654e1" 

9660 PRINT CHES! 22 9+CHRS¢ 15:LOCATE 8 
sf oP RINT "A": LOCATE &.8:FPRIHT "# #4 
* eK A FE" LOCATE 6,9:FRIWT "# p # 
KERAKE CO LOCATE 6.16:FRINT "K 

+ *" 

gar7@ LOCATE €.11:PRINT "& + 

KE": LOCATE 6.12:FRINT "## 

K": LOCATE 8.13: PRIWT “KE 

#": LOCATE 8.14:FRIHT "X4 


PRIWT "RE 
PRIHT "RA 
PRIWT "RA 
‘PRIWT "RR # 


6a LOCATE 
4": LOCATE 
3 
¥ 


~~ 


#": LOCATE 
“": LOCATE 


. 


Mo coo 
a ed 
oo On 


~ 


1 LOCATE S.13:PRIWT "# # 
SLOCATE 8.20: PRINT "A 4 RRRRAAAS 
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K": LOCATE 6.21: PRINT "#":LOCATE &,.22 
‘PRINT eee Aaa Ae kea ee ORIN) CHR 


5 it: LOCATE “4.7°PRINT "128": PRINT " 
17a": PRINT " 143": PRINT " 176" 

9116 LOCATE 4.11: FRIHT "Lea" PRINT 7 
132" FRI * 192": PRIWT 192 


9126 LOCATE 4,.15:PRINT "132": PRINT " 
192" PRINT 192°" PRIN. * 164 

9124 LOCATE 4.19:FRINT "144": PRINT " 

. 175":PRINT " 126": PRIHT " 255 

9146 LOCATE 25.7:FRINT " &": LOCATE 

22.8: PRINT "7" :LOCATE 25,.9:FRINT " 

246": LOCATE 26.16: PRINT "16" 

9154 LOCATE 27,11:PRINT "4":LOCATE 2 

(le: PRINT "2": LOCATE 27,13:FRIHT “2 

"SLOCATE 27.14:PRINT "2" 

9166 LOCATE 27,15:FRIHT "“2":LOCATE 2 

(AEs PRIWT "2" :LOCATE 27.17: PRIHT “2 

":LOCATE 2f.16:PRINT "4" 

9178 LOCATE 27.159: PRIHT "@": LOCATE 2 

SH: PRIHT "258" :LOCATE 27.21: PRINT 

"@": LOCATE 25,22:FRINT "255" 

9206 LOCATE 1.1:STUF 


This is quite a long sub-program, but if you are still 
struggling to understand U.D.G.s (User Defined Graphics), 
then this program, together with some explanations, should 
make the subject much clearer. 

When it is entered correctly use RUN 9000. On the screen 
will be shown four adjacent sets of 8 x 8 squares; each of the 
four separated by solid lines, and inside these the 8 x 8 squares 
are separated by dotted lines. At the top are the values of 
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each column below that number. From the left: 128, 64, 
32, 16, 8, 4, 2, 1; and these are repeated for the top right 
square. These numbers can be remembered easily: from the 
right-hand side, going left, each succeeding number is double 
that on its right. 

So much for the columns. The ROW numbers (down the 
left, and down the right) are obtained by counting the values 
of the ‘filled-in’ squares in that row. In this block of four 
characters we will call them: top-left, top-right, bottom-left, 
and bottom-right. The top-left will be used for explaining 
the numbers. 

The first row has 1 filled-in (*) square under 128, so 
enter 128. The second row has 4 filled-in squares under 
128,32,8,2, so enter 170. The third row has 5 filled-in 
squares under 128,8,4,2,1, so enter 143. And so it goes on. 
By now you should be able to add up and fill in the rest; the 
numbers are given so that you can check that they are correct. 
Ignore the pattern made on these four squares for the 
moment (there is an obvious circle, solid lines down the left 
and bottom edges, as well as some dots outside the circle). 
This pattern will be explained later. 

Having studied this until you really understand what is 
being done and how to do it, the next decision is how to use 
the numbers thus produced. Each set of numbers (128 to 192 
for the top-left; 0 to 2 for top-right; 192 to 255 bottom-left; 
and 2 to 255 for bottom-right) are entered in section 5000 (or 
any other place where you are making U.D.G.s) after the 
word ‘SYMBOL’ and its number; and divided from that 
number and from each other by a comma. 

The pattern we have described makes the white counter. 
The spaces in the circle were filled in then, and new sets of 
eight numbers produced for the black counter. That should 
be easy to understand, but the lines down the left and across 
the bottom as well as the outer dots need more explanation. 

I found, when the circle was printed (using the four 
characters) that they erased the already drawn lines of the 
board on their immediate left and bottom edge. Therefore 
those lines were added to the graphic character. 

The dots! Well, the background is produced by printing 
graphic character 240, which is made up with the values of 
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0,170,0,170,0,170,0,170: alternate rows of spaces and alter- 
nate dots. When this counter is printed as a background it is 
then overdrawn by lines. Then, when our black or white 
counter is printed on top of this it rubs out some of the back- 
ground (around the circle). This must be replaced. Therefore 
dots (fillings-in) are put on the pattern after the circle is 
drawn (conforming exactly to the way those dots would 
appear in character 240). They are then counted into the 
values. 

One further point before we leave this section at 9000. 
The characters on the Amstrad are not so wide as they are 
high. They are not properly square, but oblong. So for the 
circle we have made one that is wider than it is high, so that 
it will print as a proper circle on the screen. 

If you have followed this so far you should now find it 
easy to design your own U.D.G:.s, using a pencil and paper 
tuled into squares. The program at 9000 is worth keeping for 
reference, for it also shows how certain things are done when 
programming. Notice the way in which dotted lines are 
drawn, using PLOT instead of DRAW, and an extra 
FOR/NEXT loop. 

Another interesting point is the way the left-hand column 
of numbers (for top-left and bottom-left) have been pro- 
grammed in lines 9100-9130. The colon ( : ) followed by 
PRINT, tells the computer to put it on the next line down. 
It would do this at X 1, so three spaces have been inserted 
inside the inverted commas in front of the number to move it 
to X 4. That cannot be done on the right-hand side of the 
drawing because the spaces would be too many, and would 
erase the drawing along that line. 

To return to the main program: we now have nine sets of 
eight numbers which must be made into graphic characters. 
The next list does that in section 5000. 


5626 SYMBOL AFTER 24a 

3036 SYMBOL 246.6,174,6,176,6.176.4, 
176:REM BORRD DOTS 

5046 SYMBOL 241,.128.174,143,176. 164, 
192,192.192:REM WHITE.L“TOF 
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5054 SYMBOL 242,6,176,.246,16.4.2,2:2 
?-REM WHITE R/“TOF 

5666 SYMBOL 243.192.192,192.160, 144, 
175,128,255: REM WHITE L“BOT 

5070 SYMBOL 244,2,2,2.4,8,. 250.6, 255: 
REM WHITE R-’BOT 

5086 SYMBOL 245,.129,176.143.191,191, 
255,255,255: REM BLACK L/“TOP 

5090 SYMBOL 246,6.176. 246. 256, 252,25 
4,254,255: REM BLACK R/’TOP 

516a SYMBOL 247,255,255. 255.191,159, 
175,126,255:REM BLACK L“BOT 

5110 SYMBOL 248,254, 254, 254, 254, 246, 
254,48,255:REM BLACK F-BOT 

We have used ‘SYMBOL AFTER 240’ once again, for that 
gives plenty of room. The four parts of the white counter 
start at CHR$(241) and the four parts of black at 245. In the 
REM statement at the end of each line is a brief description 
(white L/Top) etc. 

Section 5000 being now complete we move to 4000, which 
uses CHR$(240) to form the background. Some lines are 
drawn over that background to form the squares, and there are 
some letters to locate the square positions. 


4420 FOR «=4 TO 19:FOR Y=4 TO 19:LOC 
ATE X.Y: PRINT CHRS¢ 2400: NEAT ¥! NEAT 
x 

4020 FUR K=45 TO 326 STEP 32: ‘’=96:0R 
IGIH 4.7: DRAW 6.254:NEXT « 

464@ K=4e:FOR Y=96 TO 352 STEF 32:OR 
IGIH % 1: DRAW 254.8:NEXT 7 

4050 PRINT CHRS< 22 0+CHRS¢19:LOCATE 4 
,3°PRINT "A BC ODE F GH":LOCATE 3, 
4:PRINT "A" :LOCATE 3.6:PRINT "B": LOC 
ATE 3.8:PRINT "C" 
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4964 LOCATE 3.1@:PRINT "D":LOCATE 3, 
t2:PRIHT "E":LOCATE 3.14:PRIWT "F":L 
OCATE 3.16:PRINT "G":LOCATE 3.18:PRI 
NT "H" PRINT CHR 22 9+CHRS! @ 2 


The TRANSPARENT mode is used for the letters at the 
top and side of the board. Use the method of entering 
suggested previously, until you have checked that they are all 
entered correctly. That is: omit ‘PRINT CHR$(22)+ 
CHR$(1)’ at first, and then insert it (and also the ending: 
CHR$(0)) as shown in the list. This is recommended because 
if an error has been made, and the lines are selected for 
EDI!Ting while those CHR$ statements are present, they can 
cause confusion, for they operate while the cursor is moving. 
It is safer to introduce the TRANSPARENT mode after 
everything else is checked as correct. 

With the board safely entered we now need a title, and 
some instructions for playing. These are relatively straight- 
forward LOCATE/PRINT statements, but PEN 3 (red) is 
introduced in alternate paragraphs in order to distinguish 
them. 


4670 PEW 3:LOCATE 22.2:PRINT “XtKeEE 
KXRERELKKRE" LOCATE 22. 3:FRIHT "# & 
EVER S I #":LOCATE 22.4: PRIHT "#4 
KERASERAREEAALE" PEM 1 

4466 LOCATE 22.6:FRIHNT "“OWLY Permitt 
ed": LOCATE 22. 7:PRINT "move iss to Ju 
me": LOCATE 22,.8:PRIWNT “OVER oFPonent 
V": LOCATE 22.3:FPRINT "HORIZOHTALLY, " 
‘LOCATE 22.10:FPRINT “DIAGONALLY, or" 
‘LOCATE 22.11:FRINT "VERTICALLY." 
4094 PEW S:LOCATE 22,12:FRIWT "Rerla 
ce JumPed": LOCATE 22,13: FRINT “over 
oFPonent" LOCATE 22.14:PRINT “with o 
wr colour. ":PEH 1 ; 
4166 LOCATE 22.15: PRINT "Black goes 
first." 
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4116 PEH 3:LOCATE 22,16:PRINT "WINHE 
R has most" ‘LOCATE 22,17: PRINT "Pier 
és at the end: ":LOCATE 22,18:PRINT " 
WHEN EITHER" :LOCATE 22,19:PRINT "CAN 
NOT GO.":FEN 1 


Because the game of Reversi usually begins with four 
counters grouped centrally on the board, these must be 
placed in position as part of the screen lay-out. We will do 
that now. 


4126 AS=CHRS¢ 241 D+ CHRS( 242 5 

4136 BS=CHRS<( 243 3+CHRS 244) 

4149 CS=CHRS*( 245 I+ CHR St 246 9 

4156 DS=CHRS( 247 9+ CHRSC 248 5 

4166 LOCATE 16,16:PRINT AS:LOCATE 18 
211:PRINT BS 

417@ LOCATE 12.12:PRINT AS:LOCATE 12 
1S: PRIHT BS 

4186 LOCATE 16,.12:FRINT C#:LOUCATE 16 
213: PRINT OS 

4194 LOCATE 12,.1@:PRINT CS#:LOCATE 12 
11: PRINT 0S 


To make the entering of a counter easier the different 
characters have been grouped into twos: A$ + B$ for white; 
and C$ + D§$ for black. This occurs in lines 4120 to 4150. 
For the location and printing on the board I used my plotting 
board to obtain the location numbers (lines 4160 to 4190). 
When these are all entered use RUN to display the board. It 
is now complete, and we can proceed to 1000 for the first 
black move. Five lines will lay down the pattern for all 
subsequent moves. 


2: PRINT “BLACK TO TOP 
2,é22: PRINT "BLACK TOC SID 
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1634 GOSUE 3szae 
1966 LOCATE #7 
1:PRINT DS 


In line 1020, the first question needing an answer, a lot of 
spaces have been placed before the final inverted commas. 
This is repeated in all the following questions because some are 
longer than others, and the spaces are needed to be sure of 
erasing all the previous questions in that space. Lines 1030 
and 1050 are both GOSUB statements, producing the X,Y: 
locations for line 1060. Notice how, in order to place the 
second half of each counter directly below its first half, we 
use ‘X, Y+1’ in the second location statement. 


REM MOVES 

REM FRAEA 

ES=INKEYS: IF ES="" THEN Boch 
IF E$="R" THEH a= 

IF ES="6" THEM *=6 

IF ES="C" THEM “= 

IF ES="0" THEN #=16 

IF ES="E" THEN #=12 

IF ES="F" THEM 4=14 

IF ES="G" THEM #=16 

ES="H" THEN “=13 

RETURM 

FS=INKEYS: IF FS="" THEN S2ha 


FRIHT C#:LOCATE #, i+ 


Hewes oboe & 


hee SY Se Seek ey 

Soe Shp a eRe aSce ea eee ee oe Ry Se ee Ee es et ee eS eRe 
_ 
ms] 


Gt GO G0 G8 G2 G2 £29 6 G2 GO) © 0 GO GO Gs GS Oo Co fo Go Go Ge 


2iQ@ IF FS="A" THEM ‘v=4 
e246 IF FS="6" THEM Y=6 
234 IF FS="C" THEH Y=s 
44 IF FS="D>" THEM Y=10 
2s IF FS="E" THEM Y=12 
cba IF FS="F" THEM =14 
27H IF Fs="G" THEM Y=16 
eo IF FS="H" THEH Y=18 
cj RETURH 
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Lines 3020 and 3200 make the computer wait for an 
answer. The other lines are self-explanatory: the first section 
(before 3200) gives the computer its X coordinates, and the 
second section the Y coordinates. The computer goes through 
these so fast that its return to the next question is almost too 
quick to see. No sooner is the top letter entered than the 
question asking for a side letter appears. We shall continue 
with black’s moves. 


1478 LOCATE « 
(TOP oF 

1434 GOSUB Sau 
1694 LOCATE 2.22:PRINT “REMOVE WHITE 
(SIDE 9¢ fe 
1148 GOSUE 3288 
1114 LOCATE #, 7: 
1:FPRIHT 0S 

Liza PEH S:LOCATE 2.22 ‘PRINT "CAH YO 
U TAKE ANTITHER V'7N97 ‘FEN 1 

1136 GS=INKETS: IF GS2>"N" AWD Gee >" 
" THEH 1136 

1144 IF G$="H" THEM 26@o 

1156 IF GS=""" THEM lara 


In this section we remove the jumped-over white counter, 
using the sections at 3000 and 3200 again, and then ask if 
other white counters can be removed. Because this question 
is not like those doing the moving, and requires a Y/N answer, 
it is printed in red so that we shall not miss it. Any number 
of whites can be removed with a Y answer, for the computer 
loops back to 1070. When a N is answered, the computer goes 
to 2000, which is the section for the white moves. 


ae Zui LOCATE 2,2Ze: PRINT "WHITE TO TOP 


2 
7 
2038 GOSUB 3686 

2646 LOCATE 2,.22:PRINT "WHITE TOC SID 
EdS 

2656 


Nm 
e 


22: FRIMT "REMOVE WHITE 


PRINT CS:LOCATE %, ‘+ 


GOSUE Sze 
60 


eM LOCATE #%. 7: PRINT AS:LOCATE &, + 


ra 7B LOCATE 2,22: PRINT "REMOVE BLACK 
(TOP 97 

cH36 GOSUE Saag 

ZAI LOCATE 2,22: PRINT "REMOVE BLACK 
(SIDE 37 

2l1H4 GOSUE S2AY 

2114 LOCATE &#. 7: PRINT AS:LOCATE &. ‘+ 
L:PRINT BS 

2iz@ FEW 3:LOCATE 2Z. ee: PRINT "CAH YO 
Wo TREE ANOTHER Yh or ‘PEM 1 

2136 GS=INKETS: IF GS0>"N" AWD Geese" 
" THEM 2136 

2i44 IF G$="H" THEM 1468 

ciSw IF GS="""" THEN cure 


These lines are similar to the black moves at 1000 onward, 
and I wrote them into the program by EDITing those at 1020 
onward. The line number was given a 2 instead of a 1 at its 
-beginning, and black was changed to white where applicable 
(and vice versa). In line 2130 ‘THEN 1130’ was changed to 
‘THEN 2130’ and in line 2150 the ‘THEN 1070’ was 
changed to ‘THEN 2070’. 

With these entries completed the game is ready for playing 
with two players (although I found that playing against one- 
self can be most interesting, it is easy to change sides and 
play each colour in turn as if it were one’s own colour). 
There are many complexities to this game that only become 
apparent after playing it for some time. During the course 
of a game or two the reason for its title of Reversi becomes 
understandable, for there are many instances when one 
colour will dominate the board; and at the next move the 
position will be reversed. As many as 3, 4, or more can be 
removed because of one skilful move by the opponent. 

For those who have not previously played Reversi it 
should be explained that the only moves allowed are over 
one (and only one) opponent’s counter, either horizontally, 
diagonally, or vertically in any direction (up, down, or to 
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either side). The jumped-over piece is then replaced with one’s 
own colour. On many occasions that replacement will reveal 
other of the opponent’s counters that can be replaced, and so 
it goes on. An opponent’s piece can be replaced by one of 
your own only as the result of your move and its subsequent 
removals. The opponent cannot then replace one of yours 
until he has made a move. It will all become much clearer 
when you have played the game once or twice. 

Save this game on tape, for it can give you many hours 
of most enjoyable play; but first remove the STOP lines 
at 1999, and 2999; they are no longer required. The section 
at 9000 will not affect the game at all if you retain it. 
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Chapter Six 
THE ANCIENT GAME OF GO 


The game of GO has always fascinated me, so very soon after 
obtaining my first computer I wrote a program on it for GO. 
Usually the game is played with black and white pieces (called 
‘Stones’), which are placed on the intersections of ruled lines. 
The board has 19 vertical and 19 horizontal lines, making 361 
intersections (called ‘Points’). Boards are normally about 15 
by 17 inches, and so are fairly bulky. Also, the stones (of 
which there are about 180 of each colour) are easily displaced 
during play. Because of this I devised a peg-board version of 
the game, using short, round, black and white pegs as stones. 

However, when I wrote a GO program for the Amstrad 464 
I found that far more convenient to use, and now I often have 
it on the screen, either playing a friend, or working out a 
strategy by myself. In the form used here the computer does 
not take part; it is written for two players. 

The program is relatively simple, for the moves consist of 
adding or removing pieces. There are only four U.D.G.s used, 
a screen layout, and the moves, so the skeleton or plot is easy. 
1@ REM ** GO Kt 
20 REM KKXKFKKAKAKE 
3@ BURDER 18:INK 1,@:IHK 6.26:CLS 
44 GOSUEB Sane 
S36 GOSUE 4a04 
1HG4 REM BLACK MOVES 
1914 REM XEKEKKKKEEE 
1999 LOCATE 2.22: STOP 
2404 REM WHITE MOVES 
2610 REM FHRRRRERE ES 
2359 LOCATE 2,22:STOP 
4404 REM $44 kES 
49599 RETURH 
sama REM UO. GRAPHICS 
SO10 REM *AREEERREEE 
5999 RETURN 
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The four graphics needed are a black and a white stone, a 
replacement cross for the intersection (point), and an X for 
nine points on the board. You should now be able to make 
these for yourself, but I give the numbers I used because on 
the black stone and the white stone are projecting points to 
refill the lines they would otherwise erase. 


Suze SYMBOL AFTER 246 

S438 SYMBOL 246,6,60,66.195,66,66, 68 
8: REM WHITE © 

sada SYMBOL 241,.5,68, 126,255, 126, 126 
6H, G+ REM BLACK ce 

SH58 SYMBOL 242.9,.6,.8,255,6,5,6.6:RE 
M CROSS + 

SH64 SYMBOL 243,6.42.26,255,26.42,8, 
S:REM & 


Notice the REM to each of the lines, so that you will 
_know which CHR$ number represents which character. In 
section 4000 the drawing of the board (so that the lines inter- 
sect centrally on the character spaces), was easy. Providing 
the board with its location letters was more complicated. 
However, by drawing it in pencil on a plotting board it 
became easier. There is a conventional way of numbering a 
GO board: letters along the top (or bottom) for the columns, 
and numbers up the left-hand side (1 at the bottom and 19 at 
the top) for the rows. The numbers running up the left-hand 
side caused complications in their conversions to Y numbers 
(which run down the left-hand side), so I have used letters 
running upward for these. Their conversion was easy; as was 
the conversion of the top letter, even though they each 
represented different numbers. The way this was done will be 
seen when we reach that section, at 3000. 

On a GO board there are usually nine marks (like a cross), 
These are not important for the game as it is normally played, 
except that they give some idea of location. For instance, if 
it is intended to play a quarter-sized game (usual for shorter 
games) the central mark will denote a corner of the board 
being used; either bounded by A to K and K to T (top-left 
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comer); or K to T and K to T (top-right corner); or A to K 
and A to K (bottom-left corner); or K to T and A to K 
(bottom-right corner). When these nine marks are obliterated 
by a stone during play, they are not replaced if that stone is 
later removed. 


4a20 FOR *=56 TO 344 STEP 16: ’=?2:OR 

IGIN #4. ‘Y: DRAW 6.294:NEAT & 

4934 ”=50:FOR Y=72 TO 368 STEP 16:0R 

IGIH AY: DRAW 294,.0:NEAT 7 

4046 PEH 3:LOCATE 4.2:PRINT "“ABCDEFG 

HJIKLMHOPGRST" 

4958 LOCATE S.3:FRINT "T": PRINT " 

"SPRIHT " R“:PRINT " Q": PRINT " 

"PRINT "  O':PRINT "  N": PRINT " 

"<PRINT “  L: PRINT " K": PRINT " 

"“SPRIHT "  H" 

4660 PRINT " G":PRINT " F": PRINT " 
E":PRINT " DBD": PRINT " CC": PRINT " 
B': PRINT " A’: PEH 1 


Notice that the letter I is not used in the location letters: 
this is to prevent confusion with number 1. Notice also that 
the lines forming the board are extended slightly towards the 
letters in order to make location easier. The positioning of 
these lines (first drawn on the plotting board) is arranged so 
that they cross each other in the centre of a character space. 
This ensures correct positioning for the replacing or removal 
of stones during play. 

In lines 4050 and 4060 note how (after the first location 
is given for the letters downward on the left-hand side) a 
colon ( : ) followed by PRINT is all that is used. This tells 
the computer to put it on the next line below; the spaces 
added between the inverted commas make sure that the letter 
is printed at its correct distance from the edge of the screen. 
This was mentioned in a previous chapter, but now there is a 
slight difference. In this program it is shown that this func- 
tion will continue when a new line is used; PRINT (without a 
location) is always just one line lower. 


s=uM 


_ 
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When the program is now RUN it will be seen that there is 
a blank space on the right side of the screen. This will be filled 
with a title, some instructions and the scores. 


4076 PEN 2: FOR *=28 TO 34:FOR ‘f=3 1 
OG S:LOCATE X,Y: PRINT CHRS¢ 207 >: NEXT 
Y:NEAT ®: PEN 1 

40¢4 PEN 3: PRINT CHRS¢ 22 0+CHRS 1 OiL 
OCATE 36.4:PRIHT "G O":PRINT CHR 22 
I+CHRS(O9:PEH 1 

4096 PEW S:LOCATE 27:2: PRINT "X##4%} 
e*AE":° LOCATE 27.6: PRINT “see K RE" OF 
OF Y=3 TO S:LOCATE 27,47:PRINT "#":L0 
CATE SS.Y:FPRIHT "A": NEXT VY: PEH 1 
4104 LOCATE 24,.6:PRIHT “BLACK goes f 
iret." 

4116 LOCATE 24,.16:PRINHT “PRESS TOP L 
ETTER" :LOCATE 24,11:FRINT "& SIDE LE 
TTER. " 

4120 PEW S:LOCATE 27,13:PRIHT “SEPRR 
ATELY": FEH 1 

4136 LOCATE 24.16:PRIHT "BLACK SCORE 
-": LOCATE 24,15:FPRIHT "WHITE SCORE:" 


4146 DS=CHRS( 243 9:LOCATE 7.6:PRINT D 
$:LOCATE 13,.6:PRINT D&:LOCATE 19.6:P 
RIHMT DOS 

4150 LOCATE 7.12:PRINT OS:LOCATE 13, 
12:PRINT O&:LOCATE 19.12:PRINT DS 
4166 LOCATE 7.13:FRINT D&:LOCATE 13, 
1S: FRINT DS:LOCATE 19.18:FRIMT DS 


For the title (because it consists of two letters only) a red 
surround and a blue background have been arranged. Line 
4070 starts with PEN 2 (this is 20, bright cyan), and then two 
FOR/NEXT loops that locate the area to be made blue. 
Amstrad character 207 is used for this. 
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To print the title in red, without spoiling its background, 
calls for PEN 3, followed by the TRANSPARENT command. 
If this is entered carefully to ensure that no EDITing is 
required, then there is no reason to leave the command 
(CHR$(22)+CHR$(1)) section until after the line is 
completed. 

The printing of the nine marks on-the board bring up a 
point worth mentioning. To avoid writing CHR$(243) a lot 
of times, D$ is made to equal CHR$(243) in line 4140. 

With section 4000 now complete, including the score 
positions, we can move on to the moves at 1000. These are 
fairly straightforward, with inputs operated by INKEY$, so 
that the pressing of the correct key (without ENTER) is all 
that is needed. However, to establish a routine for the 
conversion of the location letters to the X or Y numbers, 
we must have a sub-routine, for it will be needed often. This 
should be entered first, locating it at section 3000. 


3068 REM % CONVERSIONS 

3B1@ REM KEKKKKKKAEELE 

9020 KS=INKEYS:1F XS="" THEN 3826 
3030 IF X$="A" THEN x=4 

3640 IF K#="B" THEM %=5 

3056 IF X#="C" THEH 7 
3864 IF x$="D" THEN 
30704 IF X$="E" THEN 
348@ IF X$="F" THEH 
3098 IF «s="G" THEH 
3164 IF %$="H" THEH 
3116 IF “S="J" THEN 
3126 IF x$="K" THEN 
3134 IF #$="L" THEH 
3144 IF 4S="M" THEH &=15 
3156 IF 4#$="H" THEM *=16 
3164 IF X$="0" THEH X=17 
3176 IF X$="F" THEM x=15 
3186 IF “#S="G" THEM x=13 
3196 IF A$="R" THEN A=2e 


Hund de tt i it 


eee a A 


MXR N MRM KRM 
owe & 
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3200 IF X$="S" THEN x=21 
2210 IF ¥$="T" THEN ¥=22 
ge24 RETURH 

3368 REM  CONVYERSIOHS 
S216 REM FERRER EEAEEES 
3324 YSH=INKEYS: IF YS="" THEN S3z6 
S338 IF YS="T" THEH Y=3 
3346 IF Y$="S" THEN ‘Y=4 
3358 IF Y$="R" THEM ‘7=5 
S368 IF Y$="0" THEH Y=6 
S37 IF YS="F" THEM Y=? 
3258 IF Y$="0" THEH ‘= 
3398 IF Y$="H" THEM Y=3 
3406 IF S="M" THEM ’=16 
3416 IF Y$="L" THEH Y=11 
3424 IF Y$="K" THEN Y=12 
343@ IF 7$="J" THEH ‘f=13 


S444 IF VY$="H" THEN Y=14 
3436 IF ¢$="G" THEM Y=15 
3466 IF ‘$="F" THEN '=16 
3476 IF Y$="E" THEN Y=17 
3434 IF Y$="B" THEM Y=15 
3498 IF Y$="C" THEH Y=19 
saga IF Y$="6" THEH ‘f=28 
3514 IF Y$="A" THEN ‘Y=21 


This consists of two parts: for X; and for Y; both being 
fairly long and repetitive. They do, however, make the exact 
location of the X and Y coordinates very definite, and are 
worth the extra typing effort. Because the X numbers run 
from 4 to 22, and the Y numbers from 21 to 3, be very 
careful that you enter them correctly. With this done we can 
proceed to the black moves, commencing with some variables 
for the graphics, and for the scores. 
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1026 AS=CHES¢ 246 >: BS=CHRS* 241 >: C$=CH 
RS 242 5: DS=CHRSC 245 >» 

1030 VB=G@:WB=4:LOCATE 36.16:PRINT VB 
‘LOCATE 36.18:PRINT WE 

104@ LOCATE 2.23: PRINT “BLACK TOc TOP 
LET. 27 

1056 GOSUB 3688 

1966 LOCATE 2.23: PRINT "BLACK Toc SID 
E LET. 9? 

1074 GOSLIB 3366 

1@60 LOCATE *.Y: PRINT BS 

1@96 FEH 3:LOCATE 2.23:PRINT "CAH VO 
U TAKE WHITES Y-HoF": PEW 1 

1166 ZS=INKEYS: IF 2$<>"%" AND Z2$<>"H 
" THEH 1166 

1114 IF 2%="H" THEH 2aan 

1iz4 IF 2%="V" THEH 1136 

1136 LOCATE 2.23:PRINT "REMOVE WHITE 
(TOP LET. of : 

1144 GOSUEB 3666 

1156 LOCATE 2.23: PRINT "REMOVE WHITE 
(SIDE LET. 97 

1164 GOSUE 3386 

1176 LOCATE X.Y: FRINT CS: VB="/64+1:LOc 
ATE 36,16:FRINT VB 

1166 SOUHD 1,50, 26 

119% GOTO 1894 


Those lines contain all the black moves. Lines 1040 to 
1080 are the moves for locating and printing a black stone on 
the board, and they include the two GOSUB commands to 
3000 and 3300, which establish the locations. 

Then comes a question to be answered with Y/N: “‘Can you 
take white?”. This appears after every move in the interests 
of simplicity, and is entered in red to avoid it being missed. 
If the answer is N then the computer goes to the white moves 
at 2000. If it is Y it proceeds to introduce the routine for 
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removing the white, using the sub-routines at 3000 and 3300. 
After the stone is removed line 1190 loops back to 1090, so 
that further removals can be made or the computer receives a 
N, and goes on to the white moves. 

These lines have been made as simple as possible, and are 
repeated for the white moves at 2000. You can enter those 
directly, or, as I did, you can EDIT the lines from 1020 
onward, changing the line number and all colours as you 
proceed. In lines 1100, 1110, 1120, and 1190 there are also 
numbers to change, while in line 1170 the variable must be 
changed: VB to WB. 

2666 REM WHITE MOVES 

2010 FEM KEAKEREKELS 

2626 ee 
RSC 24Z 9: DS=CHRSC 243 

2446 LOCATE 2.23: PRINT "WHITE TO< TOP 
LET. 4% 


2854 GOSUB 368g 

264 LOCATE 2,23: PRINT "WHITE TOc SID 
E LET,.3? 

2676 GOSUB 3368 

26o4 LOCATE #4. 7: PRINT AS 

2@9@ PEN 3:LOCATE 2,.23:PRIHT "CAM 0 


U TAKE BLACKS Y“N OT": PEN 1 

2160 Z$=INKEYS: IF Z2$<>"%" AND 23< 7"N 
" THEN 2166 

2116 IF 2$="H" THEM 1844 

2126 IF 2$=""'" THEN 2136 

2134 rae 2,23: PRINT "REMOVE BLACK 
¢TOP LET. 

2148 GOS ig “2000 

2156 LOCATE 2.23: PRINT "REMOVE BLACK 
€SIDE LET. >? 

2164 GOSUB 33h 

2176 LOCATE #7: PRINT C$: WE=WB+1 :LO 
ATE 36,18:PRINT WB 

2184 SOUND 1,560,268 

2194 GUTO 2e96 es 


With this entered the game is complete. It should be put 
on tape first, and then tried out. If it doesn’t work in any way 
then check your entries, for there must be an error some- 
where. 

The scores were mentioned earlier. Those given on the 
screen are only a part of the score, and a negative part at 
that. When the game is ended (by mutual consent or because 
one player cannot find anywhere to safely place a stone) all 
the points enclosed by black are counted, and are used as 
black’s true score; but only after deducing the number of 
black stones taken by white as shown by the white score. 
Similarly, all points enclosed by white, minus black’s score of 
whites taken, are white’s true score. 

GO is an extremely complex game, although it may not 
seem so from what you have seen so far, but the full rules 
are too extensive to be given here. You should obtain (from 
the library?) a book about GO. The British GO Association, 
60 Wantage Road, Reading, Berks, RG3 2SF, will send you 
details of how to play if, and only if, you enclose a large 
(10” x 7) stamped, self-addressed envelope with your 
enquiry. They are most helpful. 

To enable you to play a little (while waiting for your 
book of rules) I include here a few pointers. The aim is to 
secure, and surround, more territory (points) than your 
opponent. Black starts by placing a stone anywhere. They 
play alternately. All stones remain at the same point unless 
surrounded. To be surrounded is to have an opponent on 
each of the points around your stone: that is on the points 
that are on a line with your own; not diagonally. This needs 
demonstrating, so I have written a program at 9000 to give 
some examples. You will see it uses some lines taken from 
4020 to 4060 that can be EDITed to 9020 to 9060 to give 
you a start with the list. 


9004 REM TEST 

914 CLS 

9020 FOR X=56 TO 344 STEP 16:=72:0R 
IGIN 4.7: DRAW @.294:NEXT 

9030 X=50:FUR Y=72 TU 36@ STEP 16:0R 
IGIN X.Y: DRAW Z294,@:NEXT 
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9048 PEH S:LOCATE 4,.2:FRIMT "“ABCDEFL 

HJIKLMHOPGRS T" 

9656 LOCATE S.3:PRIHT "T": PRINT " § 

"SPRINT "  R": PRINT " @":PRIHT " 

"SPRINT "  O"':PRIHT " HW": PRINT " I 

"SPRIHT " L':PRINT "  K':PRIHT "J 

aes od 9 9), | a 

9860 FRIMT "  G":PRIMT "  F':FRIHT ' 
BE’: PRINT " O°: PRINT " C": PRINT " 
B": PRINT " Av: PEN 1 

5076 AS=CHRS. 246 » ‘BS=CHRS¢ 241 >: DS=CH 


9836 LOCATE S.3:PRINT AS: LOCATE 9.3: 

PRIMT ASS ASSAS: LOCATE 15.3: PRINT Agi 

AS; AS 

9430 LOCATE 4.4:PRINT AS; BSA: LOCAT 

E &.4:FPRIHT AS; BS) BS; BSiAS: LOCATE 14 
4: PRIHT AS BS i 65683 AS 

9146 LOCATE S.S:FRINT AS:LOCATE &,5: 

PRIHT ASI BS; 0S;6$5AS: LOCATE 14.5:FRI 

NT ASS BSi 085655 AS 

9114 LOCATE S.6:PRINT "A":LOCATE 8.6 
‘PRINT ASiBS; BSiBSi AS: LOCATE 14,6:FR 
INT ASI Bi 035695 AS 

Size LOCATE 9.7: PRINT AS; ASS AS: LOCAT 
E 14,7: PRINT AS BSiBSi BS; AS 

9136 LOCATE 4.8:PRIHT AS:LOCATE 18.8 
‘PRINT “D": LOCATE 15.5: PRINT AS; ASR 


g 

ie LOCATE 4,.9:PRINT BS; AS:LOCATE 1 
»S°PRIWT "F" 

315 @ LUCATE 4,18: au AS: LOCATE 4,1 

1:PRIWT "6B": LOCATE 6.11:PRINT ASS AS: 

AS; ASS AS 

9164 LOCATE 7.12:PRINT AS; BSI BS; 658 

Si BS: AS 
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9170 LOCATE 7.13: PRINT ASS ES; DS5BS:50 
$;BS;AS:LOCATE 16.13:PRIHT AS: DS; AS 
9168 LOCATE 7,.14:PRINT ASSES; BS;69;56 
$;BS;AS:LOCATE 16.14:PRINT DS; BS;D% 
9156 LOCATE 6.15:PRINT AS; AS; AS; ASA 
$: LOCATE 16,.15:FRINT Asi 0%; AS 


9268 LOCHTE 16,.16:PRIHT "E":LOCATE 1 
Pole: FRINT "0" 
9566 LOCATE 2.22: STOP 


This is a fairly tedious piece of entering, but will be worth 
the trouble if you want to play GO. RUN 9000 will now show 
the examples A to F on your screen. 

A and B are examples of a properly surrounded stone; but 
look at example C: that black is NOT surrounded, for the 
crosses indicate where the whites should have been placed to 
surround the black. Study that carefully, for it is the funda- 
mental point of the game. 

In example D is a block of black stones surrounded cor- 
rectly by white except for the ‘eye’ (marked with an X). It 
is now possible for white to place one stone in that central 
eye, and thereby take all those blacks, for they are then 
completely surrounded both inside and out. Therefore, a 
single ‘eye’ is no insurance against capture, it is vulnerable. 

F shows a similar situation to D, but with two adjacent 
eyes. This also is vulnerable, for white can afford to throw 
away one stone by placing it at one of the two eyes (marked 
with XX). Black will respond by placing one stone at the 
other eye (to surround and remove white), but then the 
position reverts to a single eye which allows white to capture 
all the blacks im F. 

A completely invulnerable position is shown at E, where 
two separate eyes have been built up in one block of black. 
They are shown with an X. This should be your aim with all 
blocks of your own stones. White is not allowed (by a suicide 
clause) to place a stone in a single eye unless by doing so the 
entire block is thereby surrounded, both inside and out. Where 
two separate eyes exist this is obviously impossible. 
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With these few simple instructions you will be able to play 
the game of GO; but there are many finer points of play 
prought out by a study of the complete rules and examples. 
{f you are really interested, then obtain a book about GO of 
which there are many about. Ardent followers of this game 
claim that it has more depth than does Chess. 
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Chapter Seven 
A DIFFICULT GAME — CHESS 


Complex problems arise when programming a computer for 
the game of Chess, even though it will be for two players only 
(without the computer taking part), for the pieces are varied 
in character, and some are placed on checkered squares. In 
this version we shall use U.D.Gs to shade what would other- 
wise be solid black squares, and there will be six black and 
six white pieces. 

The first task is to outline the plot of the program: U.D.G.s 
in one section; in another the screen layout; white moves; 
black moves; and a section for various conversions. This last 
one will be large, and should be placed centrally in the pro- 
gram, after the white and black moves. The various sections 
must be kept well separated from each other so that they are 
easier to remember as the program is built up. This also makes 
the entering much more simple. In a long and complex pro- 
gram every effort must be made to simplify the details. 


1@ REM **EeAKEKE 

15 REM * CHESS * 

20 REM KAEKKKAEE 

34 BORDER 2: INK 1,.4@:INK @,23:CLS 
46 GOSUB 66H 

5@ GUSUEB Saoe 

1004 REM SAKREREAEEEEEAES 
1616 REM * WHITE MOVES + 
1026 REM KKAKKEAAERRETAE 
1999 STOP 

COOH REM 4HKEKKAKKEKAEKE 
261G REM & BLACK MOVES + 
2020 REM AOS kd 
2999 STOP 

SHbH REM sR AE 

3005 REM * SCREEN * 

S010 REM AKAKERAEKE 
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RETURTH 
REM KHERAKEEREAEEEESE 
REM * U.O.GRAPHICS + 
REM AXKAERERERREREES 
RETURH 


at ty ao 


Mm - wy igs 
te 


OH oo i 1 cn 
COS SD Se bar 


Te 


When this is entered use RUN. The border will be bright 
blue, the paper a pale cyan, and the text black. Run will 
also produce an error message, but ignore that. Enter CLS 
to clear the screen, then LIST and ENTER, and the list will 
appear black on a pale cyan paper. There is a considerable 
amount of entering to do, and that is a restful screen to gaze 
at. 
The User Defined Graphics can now be designed. The 
Chess pieces I have made fill a character space for the Kings 
and Queens, with relatively smaller spaces for the lesser pieces. 
The first character has been designed to refill the centre of the 
shaded squares after a piece has been removed. 

Because the shaded squares occupy two half spaces and a 
full space each in both directions (horizontally and vertically) 
it has been found necessary to design eight more U.D.G:s for 
these: four for a corner each, and four for half a space each. 
These, of course, must use the same formula as that used for 
the completely shaded U.D.G. This will be explained properly 
when the screen layout is written. 

That makes twenty-one U.D.G.s in all, and these are enter- 
ed next. Three REM lines have been used for the section title 
(and this will be done for each section in future); it makes 
them more easily located when running through a list of the 
entire program. Each of these U.D.G. lines ends with a REM 
statement. 


42 SMBOL AFTER 234 

136 SYMBOL 230,.6,55,4,85,8,65.,4, 55: 
| BACKGROUND 

40 SYMBOL 231,.6,.0.24,660,68,24,601 
-REM BE. PAWH 
@ SYMBOL 232,6,85, l27,62,.62.,62, 12 
2r:REM 6.CASTLE 
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6666 SYMBOL 233,.6,24,52,116,.126,.64.1 
26.126:REM 6.BISHOF 

6070 SYMBOL 234,6,12,.62,126,14.28,62 
127: REM &.KHIGHT 

6H SYMBOL 235,46,170.178.124.56,12 
4,254,254:REM 6. QUEEH 

6438 SYMBOL 236. 24,126.219,219,96, 12 
6,255,255: REM B.KIHG 


6184 SYMBOL 237,6.8,24.36,36,24,36.1 
26: REM WW. FAWM 
6116 SYMBOL 233,6.85,127,34.34.34,99 
2127: REM W. CASTLE 
6128 SYMBOL 2339,6,24.44,2,66,. 36.162 
126:REM WW. BISHOP 
6138 SYMBOL 246,6,12,50.114,18.26,34 
127° REM W.RMIGHT 
6148 SYMBOL 241,.48.176,17@.124,468.68 
os en : REM W. QUEEN 


6150 SYMBOL 242.24,126,153.125. 50, 
2,153, 255: REM W.eK ING 

6166 SYMBOL 243,06,.6,.6.6.6,5.6.,5: REM 
TeL SQUARE 

6178 SYMBOL 244,6.0,6,.6.6,65.6.85:RE 
M T/C SQUARE 

6154 SYMBOL 245,6,6,0,6,.0,.58.0,60:RE 
M TR SQUARE 

6196 SYMBOL 246.6,.5.,6,5,6.5.6,.5:REM 
C“L SQUARE 

6204 SYMBOL 247,6,.86.6.86,6.86.@, 80: 
REM C/“R SQUARE 

6216 SYMBOL 246,6.,5.6.5,6,.6,6,.0:REM 
B“L SQUARE 

6228 S‘/MBOL 243,4,55,0,85,@, u, B, a: RE 
M B-C SQUARE 

6236 SYMBOL 256.0,50,0,80.6,6,8,6:RE 
NM BYR SQUARE 
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The last entry is 6500 RETURN, which sends the computer 
back to line 50 GOSUB 5000. This is the screen layout 
section, and we will follow it there. 

One feature of a checkered board game, either Chess or 
Draughts, is that a single character must be placed centrally in 
each square. Therefore, if each square is the equivalent of 
four character spaces in size (and that is a reasonable size fora 
board game on a computer) the dividing line between the 
board squares must cut through some character spaces, both 
horizontally and vertically. This was explained thoroughly 
in Chapter Four, the Draughts game, so if you have not read 
that then do so now. The listing on pages 39 and 40 in Chap- 
ter Four gives an explanatory program. 

I used a plotting board to locate this chess game on the 
screen by drawing a grid of squares across the area, and then 
making provision for filling alternate squares with shading. 
In making the quarter and half squares necessary I used the 
complete character formula 0,85,0,85,0,85,0,85: that was 
used for CHR$(230). How the formula was used is shown in 
lines 6160 to 6230. 


5a2e6 PEW 3:FOR «=5 TO 17 STEP 4:FOR 

Y=5 TO 17 STEF 4:LOCATE %.6+7:PRIWT 

CHES 245 95 CHR SC 244 55 CHRSC 245 5° HEXT Y 
‘NEAT % 

Sasa FOR x=5 TO 17 STEP 4:FOR V=5 TO 
17 STEF 4:LOCATE #114: PRINT CHRSC2 

469; CHES! 2389; CHRO 247 Oo HERT f: HEXT 

x 

S64a@ FOR #=5 TO 17 ae 4:FOR ‘f=5 TO 
17? STEP 4:LOCATE %.2+7: PRINT CHRS¢2 

465; CHES 2455; CHR. 250 9 NEMT ‘f+ MEX 

* 

SO5@ PRINT CHR! 22 o+CHRSC 10: FOR X= 

TO 15 STEP 4:FOR ‘=F TO 13 STEF . " 

CATE #.6+¢:PREIMT CHRS*¢ 243 9; CHR 244) 

jCHRS.245>:NHEAT VY: HEX 
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SH6@ FOR 4=3 TO 15 STEP 4:FOR v=? To 
19 STEF 4:LOCATE #.1+%: PRINT CHR. 2 
4695 CHRS*¢ 23695 CHRS( 2479: NEXT Ys HEAT 
x 

SA7a FOR #=S TO 15 STEF 4:FOR Y=? To 
19 STEF 4:LOCATE #,2+7:PRINT CHRS¢2 
495 9; CHR 2499; CHESC 2569: NERT Vs NEXT 
XePRIWT CHES! 22 9+CHR Se! GD 

sbS0 PEW 1: FOR Y=" Ue sZt STEF 32:0 
RIGIN 40,7:DRAW 256.8:NEAT 

9998 FOR *=46 To 356 “STEP 32: URIGIH 
Te DRAW &.256:HEXT 3 


When these lines have been entered, and the program 
RUN, it will be seen that the dots are in red (PEN 3). There 
will be an error message on the screen, but ignore that, unless 
of course it refers to a mistake you have made when entering 
the list. You will know this if the checkered board is not 
completed, with black lines dividing the red squares. 

The rest of the entries in this section are fairly easy, for 
they deal with the placing of numbers and letters around the 
board; a title for the game; some instructions; a code (which 
will be explained later); and the placing on the board of the 
chess pieces. 


J17@ PEN S:LOCATE 22,2:PRINT "X4KKE 
CEAERERARKE" LOCATE 22,3:PRINT "# # 

CHES &S * Kk": LOCATE 22.4: PRIHT "et 
KREEEER ARREARS, "IPE 1 

316 PEH S:LOCATE 4.4:PRINT "A BC D 
&F GH" 

3199 LOCATE 2.6:PRIHT "8": PRINT: PRIN 
To -¢°3 PRINT: PRINT "6": PRIHT PRINT 

" SS": PRIMT: PRINT " 4": PRINT: FRIHT " 

3": PRINT : PRINT "2": PRINT: PRINT " 1" 
‘PENH 1 

sea LOCATE 1,2:PRIMT "FROM We": LOCA 
TE 1,22:PRINT "FROM B:" 
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5214 LOCATE 24,.6:PRINT "TOP LETTER & 
":LOCATE 24.7: PRINT "SIDE NUMBER. “ 
S228 FEM S:LOCATE 25,.3:PRINT "SEPARA 
TEL": FEH 1 

Sese@ PEN 3:LOCATE 25,11:PRIWNT "* & % 
* #A":LOCATE 26.12:PRIHT "C OD E':L 

OCATE 25.,13:FRINT "* # # € #": PEM 1 

S24@ LOCATE 25,15: FRINT "PAW... .F" 
LOCATE 25.16:PRINT "ROOK....R":LOCAT 
E 25.17: PRINT "KNIGHT. .H" 

5256 LOCATE 25,.15:PRINT “BISHOP. .B": 
LOCATE 25.19:FRINT "QUEEHW...":LOCAT 
E 25.20:PRIMT "KIWG....K" 

S26 AS=CHRS( 231 9: BS=CHRSO 232 >: CS=CH 
PSt 224 9: DS=CHRS 235 9: ES=CHRSC CSS 3: FS 
ECHR SS. 236 > 

S278 KS=CHRS( 237 9: LS=CHR SC 236 >: MS=CH 
RSC 2468 5 NS=CHR SE 239 9: OS=CHRSE S41 OPS 
=CHF SS" 242 9: OS=CHRSC 2S 3 

5230 LOCATE 4,.6:PRINT B&S:LOCATE 6.6: 
PRINT CS:LOCATE &.6:FPRIHT OS:LOCATE 
1@.6:FRINT ES 

S234 LOCATE 12.6: ‘PRINT FS:LOCATE 14, 


6:PRIHT O$:LOCATE 16.6: PRINT C$: LOCA 

TE 15.6:PRINT BS 

S308 FOR #=4 TO 18 STEF 2:'/=&:LOCATE 
e wet >PRIWT AS: HEAT a 

J318 FOR: a=4 TO 16 STEP 2:'/=18:LOCAT 

E wo PRIWT KS:NEXT & 

S226 LOCATE 4.2: PRINT LS:LOCATE 6.2 
O:PRIHT M$:LOCATE 6. 26:PRINT N&:LOCR 
TE 16,26: PRIHT 0% 

5338 LOCATE 12.26:PRINT FS:LOCATE 14 
226° PRIHT HS:LOCATE 16.26:PRIHT Me:L 
CCATE 18,20:FRINT LS 


80 


When this list is completed, add one temporary line: 1500 
GOTO 1500. This will prevent an error message spoiling the 
screen display. Check that everything is in its correct place. 

This will be your first chance to check the U.D.G.s also. 
If there is anything wrong then check all your entries, paying 
particular attention to the lines that seem to cause the error. 
To help check the chess pieces, compare the whites with the 
blacks. 

If any shaded squares are wrong then check lines 5020 
to 5070, for 5050 to 5070 include the TRANSPARENT 
command in order to prevent the quarter and half dotted 
characters from erasing the earlier squares with their blank 
portions. 

The dividing lines are drawn in lines 5080 and 5090. In 
line 5190 the exact location of the left-hand side numbers 
are controlled by the single spaces before all the numbers 
(except 8), and by the double PRINT statement between 
each number. 

In lines 5260 to 5330 the chess pieces have been given 
variables, which are used to locate the pieces on the board in 
their starting positions. These variables will stay in the 
computer’s memory, so that they can be used during play. 

It will be seen (on the screen display) that letters have 
been used across the top (giving the columns an X letter 
notation), and numbers up the side (to give the rows a Y 
notation). This is the Continental Notation for Chess. If 
we had attempted to use the English Notation we would 
have had two sets of numbers for each square: those for 
white, and those for black. 

Remove temporary line 1500, for now we are going to 
start section 1000 (the white moves), proceeding step by 
step through the moves, using ‘White From’ and ‘White To’. 
After the ‘From’ must come the replacement of the shaded 
square, or the plain one; and after the ‘To’ will come the 
printing of the piece moved. 


1036 LOCATE 2.24: FPRIHT "WHITE FROMC T 


UP LE he we 
1644 GOSUB 3Hee 
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165 LOCATE 2.24:PRINT "WHITE FROMS 


IDE NO. OF 
1868 GOSUE 314% 


1678 LOCATE #.Y:FRINT " ":GOSUB 32a 


These few lines are easy, but they contain three sub- 
routines, all of which can be used by either black or white. 
We will place these at 3000, leaving room at 2000 for the 
black moves. It will be seen in this section (3000) that 5 is 
used for the difference in line numbers, instead of 10 as 
previously. This is because it is useful to allow only 100 
each in the line numbering, thereby making the routines sit 
at lines 3000, 3100, 3200, and so on. 


3@BG REM AACE ARA AEE 
3405 REM * *» CONVERSIONS * 
3B10 REM EKKKKEKEKKKKERAEEE 
3615 HS=IHKETS: IF #S="" THEH S15 
Sa2ze IF X$="A" THEN “=4 
3625 IF #$="B6" THEN X=6 
3630 IF xX#="C" THEN xX=c 
3635 IF %$="D" THEN X=16 
344@ IF 4$="E" THEN x=12 
3a45 IF #$="F" THEN #=14 
3050 IF *$="G" THEN #=16 
3455 IF #%$="H" THEN #=15 
3860 RETURH 

3160 REM FEKKREEERAREREARE 
3185 REM # VY CONVERSIOWS + 
3110 REM KHEARKAAREAREREEEL 
3115 ‘(S=INKEYS:IF YR="" THEN 3115 
3126 IF ¢$="1" THEN ‘=24 
3125 IF Y$="2" THEM Y=18 
3136 IF YS="3" THEM Y=16 
3135 IF Y$="4" THEW ‘’=14 
3146 IF VS="5" THEM Y=12 
3145 IF VS="6" THEW ‘V=10 
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3154 IF Y$="7" THEN ‘= 
3155 IF Ys="6" THEH ‘Y= 
3164 RETURH 

32H REM FEEEREREEEAAREERERS 

3265 REM 4 BG CONVERSIOHS # 

S210 REM KEREAERRRREREKERERSE 

$215 PEM S:1F x+v=6+6 OF 44+=18+6 OF 
atyvy=14+6 OF #+''=1e+6 THEN LOCATE #, 
Y: PRINT = PEN 1 

3226 FEW S:IF &+v=4+5 OF K+'/=o+5 OF 

H+vslets oF at=16+o THEM LOCATE #7 
(PRIHT O$:PEH 1 

$225 PEM 3:1IF A+’=6+16 OF #+'7=16+16 

OR A+=144+16 OF X+'/=15+19 THEN LOCAT 
A PRINT GS:FEW 1 

2s PEH S:1IF x4+=4+12 OF x+Y=S+12 6 
R A+Y= 1Z+12 OR K+'=16+12 THEH LOCATE 
Ke ‘i: FRINT O%:PEH 1 

3235 FEM S:IF Atv=6+14 OF H+i'=1a+14 

OF: ev=14e14 OR X+'/=18+14 THEM LOCAT 
a ERIN OS: PEM 1 

3244 FEH S:IF X+v=4+16 OF X+V¥=S+16 O 
R K+'7v= 1z416 OF X+''=16+16 THEN LOCATE 
re eee OS:FEM 1 

3245 PEM S:IF X+7=6+15 OF x+Y=104+16 

OR ee¥=14418 DF x+'=16+1e THEN LOCAT 
E #%. 7: PRINT O$:PEM 1 

3250 PEH S:IF xX+v=44+20 OF X+'7=8+20 0 
R Xt¥=12e+20 OF A+=1e+20 THEM LOCATE 
Re YOPRIHT GS: PEM 1 

3255 RETURH 


ye m 


The three sets of conversions in this list are well separated, 
with easy-to-remember first lines. The X conversions at 3000 
convert the letters into their X coordinates. The format used 
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is in order to suit the INKEYS method of input (just pressing 
the letter, without the use of ENTER). Line 3015 makes the 
computer wait until a letter is pressed, but if the wrong letter 
is pressed it cannot be recalled, so think about each move 
before you make it. 

Line 3060 returns the computer to the line after the one 
it came from (the GOSUB command), and because it always 
remembers exactly where it came from the routine can be 
used in other places as well as here. 

The Y conversions are similar in design and effect to the 
X ones, even though numbers are used instead of letters. 
This method is used here because of the Continental 
Notation, and it should advance your knowledge of pro- 
gramming considerably. 

Some more difficult conversions are used for printing the 
backgrounds of the dotted squares. It may have been noticed 
that (in line 1070) every piece removed is replaced first of all 
by a blank space (“* ”). If we did not now print the dotted 
character on the checkered squares with Q$, the board would 
soon look ragged. Therefore, after printing the blank the 
computer is sent to line 3200, where it is told to print Q$ if, 
and only if, certain conditions prevail. Those conditions are 
laid down in the third list of conversions (3200—3255). 
These are fairly involved lines, so take care that all the letters, 
numbers, ORs, and punctuation marks are entered correctly. 

Line 3255 sends the computer back to 1080 where there 
is a continuation of white’s first move: TO (top let.) and TO 
(side number). For these we will use the original first two 
sub-routines, but then come back to line 1120, where a 
fourth sub-routine is invoked, followed by a fifth one in 
line 1190, and a sixth one in line 1210. We will enter all of 
the remaining white moves now. 


1968 PEN 1:LOCATE 2.24:PRINT "WHITE 
TOC TOP LET. 27 : 

1034 GOSUB 3068 

1168 LOCATE 2.24: PRINT WHITE TO. SID 
E NO. 97 

1116 GOSUB 3168 
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1128 
IECE 
1138 
1140 
IECE 
1154 
1166 
1174 
1186 
IECE 
1134 


PEW S:LOCATE 2,.24:PRINT "GIVE F 
CODEC PL RDN BGK 2 "PEM 4 
GOSUE 33286 

PEN 3:LOCATE 2.24:PRIHT "IS A P 
TAKEHM TS ¥ 4H 2: ": FEM 1 
WS=IMKEYS: IF Ye="" THEM 1156 

IF ¥$="H" THEH 1260 

IF Ye=""'" THEH 1192 

PEW 2:LOCATE 2.24:PRINT "CODE P 
TAKEMC POR HB GK "PEM 1 
GOSUE 34608 


1264 PEN 3:LOCATE 2.24:PRINT “PROMOT 
TOM FOR PAWH YS! YN ":PEH 1 


1214 


GOSUB 37ae 


Before detailing any more explanations it will be best to 
enter the other sub-routines. 


3368 


3358 
34H 


REM XRRRRRARAE 

REM 4 W CODE * 

REM £EREARELAE 

US=INKEVYS: IF US="" THEN 3315 

IF US="P" THEN LOCATE «4, ‘f° PRINT 
IF US="RF" THEM LOCATE #4. ‘¢: PRINT 
IF US="H" THEM LOCATE #.‘¢: PRINT 


IF US="B" THEM LOCATE «. ‘7: PRINT 


A IF US="G" THEM LOCATE 4.7: PRINT 


IF US="K" THEM LOCATE 4.‘ : PRINT 


RETURH 
REM £EREERERERRRERERS 
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3405 REM # PRIHT WoSCORE % 

S410 REM FEKRERERERERSERES 

3415 YS=INKEYS:1F YS="" THEN 3415 
3420 WSSHS+1 

3425 IF Y$="F" THEM LOCATE P+Ws,22:P 
RINT AS 

3430 IF Y$="R" THEN LOCATE 7+W5.22:P 
RINT BS 

3435 IF YS="N" THEM LOCATE 7+WS,22:P 
RINT 0S 


3444 IF Y$="B" THEM LOCATE f+WS,22:P 
RINT DS 
3445 IF Y#="G" THEN LOCATE F+WS.22:P 
RIHT ES 
3454 IF Y$="K" THEM LOCATE 7+Ws. 22:P 
RINT FS 


3455 RETURN 


In lines 1120 and 1130 is given a routine, including one for 
the code at 3300, that ensures the correct kind of piece being 
printed. This is a simple method, and one that will be easy to 
adapt to any other game you may write. 

To provide a record of pieces taken, lines 1140 to 1190 
(and the sub-routine at 3400) are used. These, as the game 
progresses, build up a line of pieces-taken behind the taker’s 
position. 

Lines 1200 and 1210 introduce a pawn promotion routine. 
This is not often needed, but is used after every move through- 
out the game in the interests of simplicity. Those two lines, 
with the sub-routine at 3700, are capable of being altered so 
that they are called into use only when necessary. This is an 
improvement that you may like to introduce yourself when 
your grasp of the BASIC language is more complete. At this 
stage it would be confusing to do so. 


3505 REM REREEAERERE 
3505 REM # 6 CODE # 
3516 REM FARRER REEE 


86 


S515 US=IHKEY¢: IF US="" THEN 3515 

ance IF US="F" THEM LOCATE #.'Y: PRINT 

sear IF US="R" THEH LOCATE #.Y:FRINT 

oe IF US="H" THEH LOCATE &.Y: PRINT 
CH 

are IF US="B" THEN LOCATE X.Y: PRIHT 
3 

3248 IF Us="O" THEN LOCATE #.'Y: PRINT 
ES 

go45 IF US="K" THEM LOCATE %.': PRINT 
FS 

3554 RETURH 

S6O0 REM KRERERARAAERAEREE 

S665 REM * PRINT B SCORE * 

S618 REM 400K REE 

3615 ‘VS=INKEVYS: IF Y$="" THEM 3615 

3620 BS=B5+1 

S625 IF YS$="F" THEM LOCATE 7+8S.2:PR 

IHT KS 

S630 IF VY$="R" THEM LOCATE 7+BS.2:PR 

IMT LS 

3635 IF VY$="H" THEH LOCATE 7+8S.2:PR 

IHT MM 

3646 IF YS="6" THEM LOCATE 7+BS.2:FR 

INT NS 

$6435 IF Y$="GQ" THEH LOCATE 7+BS.2:PR 

INT O% 

S658 IF VY$="K" THEH LOCATE 7+BS.2:PR 

IHT PS 

S655 RETURH 

SP BH REM AR RARE ARES 

2785 REM W. PROMOTIONS 

S718 REM RARRRERRALEL 

3715 WS=IHEEYS:IF We="" THEH 3715 
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"PROMOTE Toe iG 


"QUEEH Tio¢ TOP 


"QUEEM TO¢ SID 


O$ > RETURH 
"BISHOF TOC TO 


S726 IF We="H" THEN RETURH 
3725 IF We="V" THEM S7oe 
S738 LOCATE 2.24: PRINT 

/BeHeR oF 

3735 TSH=IMKEYS: IF T$="" THEM S735 

ar4a IF T$="G" THEN 3768 
3r45 IF T$="B" THEH 37s 
275@ IF T$="H" THEM 2218 
3759 IF TS="R" THEN 3335 
3760 pore 2.24: PRINT 
LE 

SPS GOSLE 3688 

SP ra saa 2.24: PRINT 

E HO. > 

3775 GOSUE 3148 

3768 LOCATE #7: PRINT 
3785 LOCATE 2,.24:FRINT 

P LET. 97 7 


3736 GOSUB sae 

3795 LOCATE 2.24: FRINT 
DE HO. 37 , 
3364 GOSUE 3166 

3305 LOCATE 4.4: PRINT 


YG 
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"BISHOF Tie $I 


NS: RETURN 
"KHIGHT TO TO 


S318 pie 2.24: FRINT 

P LET. 

3815 GOSUE 3646 

3328 LOCATE 2.24: PRINT "KHIGHT TOSI 

DE HO. oY 

3325 GUSUB 3148 

S830 LOCATE #.‘7: PRINT MS: RETURH 
$825 LOCATE 2.24: PRINT "ROOK TO" TOP 
LEle2¢ 

S844 GOSUB same 

3345 LOCATE 2.24:PRIHT "ROOK TOc SIGE 
Hi. oF ‘ 

2654 GOSUE 3ife 

3855 LOCATE Hef PRIHT LS: RETURH 


4008 


REM FREER EAERS 


4405 REM 6.PROMOTIOHS 
4010 REM REREEEERREKE 


4615 WS=INKEYS: 


4020 IF We="N" 
4g25 IF We="y" 


4636 LOCATE 2,24: PRINT 


“Beek oe 

4435 TS=IHKEYS: 
4640 IF T$="0" 
4445 IF T$="B" 
40536 IF TS="N" 
4952 IF TS="R" 
4464 LOCATE 2. 
LET. 97 

4665 


E HO. 


4475 Leen 31660 
443 & LOC SATE “ait 


24: PRINT 


GOSUE Seay 
4a7a LOCATE 2,24: 


IF WS="""THEH 4815 
THEN RETURN 

THEN 4835 

"PROMOTE TOC 


IF TS="" THEN 4635 
THEH 466% 

THEH 4435 

THEM 4114 

THEH 4135 

"QUEEH TO< TOF 


PRIHT "“QUEEH TO SID 


PRINT E%: RETURN 


4He5 LOCATE 2,24: PRIHT "BISHOP TOC TO 
P LET. 9? ’ 

4490 GOSUB 3688 

495 LOCATE @.24:PRIHT "BISHOF TOC SI 
CE HO. 97 " 

4164 GOSUE 3188 

4105 LOCATE x‘: PRINT DS: RETURN 
4114 LOCATE 2.24:PRIWHT "“KHIGHT TOC TO 
FOLET. 397 . 

4115 GOSUB 3am 

41268 LOCATE 2.24:FPRIHT "KHIGHT TOK. SI 
CE HO. 37 a 

4125 GOSUB 3166 

4138 LOCATE #.V:PRIHT CS: RETURH 

4135 LOCATE 2.24: PRINT "ROOK TO¢ TOP 


LET. IT 
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4146 GOSUE 3606 
4145 LOCATE Z.24:PRINT "ROOK TOC SIDE 
NO. of 7 
4158 GOSUEB Sloe 
4155 LOCATE %.Y:PRINT BS: RETURN 
4168 GOTU 1660 
The white promotions (at 3700) and the black promotions 
(at 4000) are given in this list as well as the black code (at 


3500). This last code will be used in the black moves starting 
at 2000, so these should be entered now. 


2630 LOCATE 2,.24:FPRINT "BLACK FROMCT 
OF LET. 97 : 

2046 GOSUB 3686 

2056 LOCATE 2.24:PRINT “BLACK FROMS 


IDE NO. oF 
2668 GOSUB 3186 
2076 LOCATE &.‘f:FRIHT “ ":GOSUB 32bn 


26e8 FEW 1:LOCATE 2.24:PRIHT "BLACK 
TOC TOP LET. of . 

2098 GOSUE 3H80 

2106 LOCATE 2.24:FRINT "BLACK TO. SID 
E WO, oY : 
2114 GOSUE 2108 
ziz@ PEW 3:LOCATE 2. 
IECE CODECF.LR.WOB, By 
2138 GOSUE sae 
2144 FEW S:LOCATE 2.24:FRINT "IS AP 
IECE TAKEN YT Yeo: ":FEM 1 
2156 VS=IHKEYS: IF VS="" THEH 2150 
2168 IF ¥YS$="H" THEM Zeon 

21l7o IF Ys=""%" THEM 2158 

2186 PEW 3:LOCATE 2,.24:PRINT "CODE P 
IECE TAKENCPUROWO BGK "= PEM 1 
2136 GOSUE 36H 


24: PRINT "GIVE P 
Kk * PEN A 


4 


90 


2200 PEN 3:LOCATE 2,.24:FRINT “PROMOT 
ITOH FOR PAWN T« “ND ‘SPENT 
2214 GOSUE 4646 

e226 GOTO 1486 


These lines are a repetition of those at 1000 with suitable 
alterations to the colours mentioned, and to the GOSUB and 
GOTO references. There is one additional line at the end to 
send the program back to 1000 for the next white move. 

With this entry the game is now complete; but there is one 
more feature of the game of chess that has not been catered 
for. This is ‘Castling’: the exchange of Rook and King on 
either side and for either colour in certain circumstances. 
With the knowledge you should have acquired by now it 
should be quite possible for you to insert a sequence to allow 
for this. If you use the same method as was used for promot- 
ing the pawn, it would require an extra line or two in white’s 
(or black’s) moves, and two extra sub-routines after those 
now finishing at line 4160. This could be an interesting 
project for those who are seriously attempting to learn 
programming. 

This game of chess has been a long and tedious program to 
enter, and when put on tape it runs into 5 blocks (about 2 
minutes to record or load). Always remember to re-record 
the whole program each time you add a section. Don’t wait 
until you have checked it, for you can always re-record if any 
alterations have been made. 

In this chapter there have been many new ways in which to 
achieve one’s aim while programming. The use of numbers 
(left-hand side) as part of the notation for Y, and the clear 
way that these have been transformed to be used for Y 
(section 3100) is one of them. As used here that method 
would not work for numbers over 9, for with a double entry 
the computer would have moved on before the second half of 
the number could be pressed. 

Of particular interest is the background conversion . section 
at 3200. Notice that X+Y is used instead of X,Y. A some- 
what free interpretation of the first part of line 3215 could 
be: PEN 3: (I must use red ink); IF X+Y= (that is: if location 


91 


=) 6+6 (the actual screen coordinates) OR (here’s another one) 
and so on and on. That line deals with the four shaded squares 
in the top row, and the following lines with following rows. 
The computer, after printing a blank to erase the piece that 
has been moved, travels so speedily through the section at 
3200 that it is almost impossible to notice the initial erasing 
with a space before the red dots are printed (with Q$). 

In section 3400 (Print W Scores) a ‘variable’ for the loca- 
tion of the Score is used in line 3420 (WS=WS+1). In the 
following lines this variable is used to locate each of the pieces 
taken, and print them according to the code given. This 
results in a row of pieces collecting as the game progresses. 
The same thing is done for black in section 3600. The X 
location is increased by one each time. 

Section 3700 (W promotions) has four sub-sections within 
it, so the procedure is easy to follow. The same applies to the 
section at 4000 (B promotions). 

The method of using quarter, half, or full squares to print 
red dots forming 32 squares of the board may also be new to 
‘you. It calls for the careful use of a plotting board first of all. 
If you have not got one of these, then the way to make one 
was described in Chapter Two. If you skipped that chapter 
then go back now, and follow the instructions for making 
such a board. Serious programming is almost impossible with- 
out the aid of a plotting board of some kind, for it is not easy 
for anyone to visualise all the points (for PRINT or for PLOT) 
that are to be used on the screen. 
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Chapter Eight 
PONTOON WITH DOMINOES 


The game of Pontoon has many followers, and is usually 
played with a pack of cards. In a computer game, however, 
the use of dominoes instead of cards is an advantage, for a 
domino is easily represented on the screen, and the number 
of them available is unlimited. 

For this chapter we will use a game of Domino Pontoon as 
the base on which to demonstrate a few more points about 
writing programs for the Amstrad 464. The first of these 
points is about the use of colour. 

Many users of the Amstrad become frustrated by the way 
in which colours are used. The User Instruction book is not 
too helpful. In Mode 1 (which we have used exclusively 
throughout this book) only four colours are available for use 
on the screen, and those four include the screen colour 
(Paper). However, those four colours can be selected from 
most of those available in the list shown on page F3.2 of the 
User Instruction book. How to select them is shown in line 
30 of this new program. 


1G REM KKKERRARARAARE: 

15 REM DOMINO PONTOON 

20 REM KARKKRARERAERA 

36 INK @.26:IHK 1.6:INK 2.11:INK 3, 
40 BORDER @:PEN @::PEN 1:CLS 

94 GOSUB S6@a 

68 GOSUE 4000 


The words BORDER, PAPER, and PEN should be used as 
shown, but INK is first used to define the colours selected for 
the PAPER and PEN commands. This is done in line 30, 
where INK 0 is made into 26 (using a comma as shown), and 
becomes bright white; INK 1 becomes 0 (which is black); 
INK 2 is made to be 11 (which is sky blue); and INK 3 
becomes 6 (which is bright red). 
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I have established a routine of using INK 0 for my PAPER 
colour, and INK 1 for the main text, with INKs 2 and 3 used 
as alternatives for display in the program. 

So, in line 30, using INK the colours allocated to PAPER 
and PEN are defined. In line 40 BORDER is given whichever 
colour I choose, for it does not come under the edict of the 
INK/PAPER/PEN commands. The second command in line 
40 is PAPER, and for that I have used INK 0. For the main 
text I use INK 1, and I use PEN to call it. Then CLS is used 
so that the screen is always cleared afresh for the colours. 

A little thought will reveal the interesting fact that with a 
line like 30 in place at the beginning of any program, it is 
quite easy to alter the colours throughout that program by 
allocating a different number to the second half of each of the 
four INK commands. But, this cannot be done halfway 
through a screen routine. 

Until they are re-allocated in this way the four colours 
built into the Amstrad BASIC in Mode 1 are 0=1 (dark blue); 
1=24 (bright yellow); 2=20 (bright cyan); and 3=6 (bright 
red). If, when the program is written, and safely taped, you ~ 
care to experiment, then alter line 30 to contain the original 
Amstrad colours (just given). When RUN is now used the 
effect is totally different. You may prefer it. 

With this brief guide to controlling the colours in Mode 1 
in your memory, we will proceed with the program. The first 
move, as usual, is to prepare the U.D.G.s. Because these 
dominoes will be used vertically instead of horizontally, the 
data for each line is slightly different than it was for Domino 
Patience. 


SOG REM ¥EKKAKEXKKEE 
5010 REM U.D.GRAPHICS 
SO20 REM KEE 
5939 SYMBOL AFTER 248 
5244 SYMBOL 244,255. 255,255,255. 255, 
255. 295,255 ‘REN BLANK 

G50 SYMBOL 241,255, 255.255.231.255, 
255,255, 255:REM ONE 
S060 SYMBOL 242,255, 159,255, 255, 255, 
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249,255,255: 


S878 SYMBOL 
243,255,255 
3430 SYMBOL 
153. 255.255 
3436 SYMBOL 
153,255,255 
3164 SYMBOL 
153,255,255 


*REM THREE 


REM TWO 


Z 
1295.295, 255, 


244,255,153 

‘REM FOUR 
245.255.153.255, 231,255, 
‘REM FIVE 
246.255.153.255. 153,255, 


‘REM SIA 


9118 RETURH 


No other graphic characters (other than one already in the 
computer) will be needed, so we can proceed to the section at 
4000, to commence designing the screen. Provided there is a 
plotting board handy the layout of the screen produces very 
little trouble. Mine was drawn on my Formica board, and 
from this the locations were read off as required. An area at 
left centre was reserved for displaying the dominoes; a title 
was put at the top, with instructions and scores down the 
right-hand side. The screen is a simple and clear one, and soon 
entered. 


4000 REM KAKKAREEAES 

441@ REM GAME SCREEN 

4020 REM KKKKEERREKK 

4640 PEW 3:LOCATE 11,.1:FRIHT "“*#eEKE 
XKKAEAAEARERE" (LOCATE 11.2:PRIHMT "# 
COMING PONTOON *":LOCATE 11.3:PRINT 
"XKEREEEERERARALAEREE" PEM 1 

445@ PEM 2:FOR “=4 TO 18:LOCATE %.6: 
PRINT CHRS¢ 238>:LOCATE K.17:FPRINT CH 
REC 23S 9:NEXT A: FOR ‘=? TO 16:LOCATE 
4,7:PRINT CHRS¢ 236%:LOCATE 18,.Y:PRIN 
T CHRS¢ 236 9:NEXT Y: PEM 1 

466@ LOCATE 28,.5:PRINT "T=TWIST S=S 
TICK" :PEH S:LOCATE 26,.6:PRIWT "----- 

onalesnateaaten “PEN: 
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4076 LOCATE 26.16:PRIHNT "SCORE: ":LOC 
ATE 26,16:PRINT "SCORE:":PEN 2:LOCAT 
E 23.7:PRINT "HOUSE" :LOCATE 23,13:PR 
INT "YOURS": PEN 1 

405@ PEW 3:LOCATE 26,.16:PRINT "* GAM 
ES *":PEN 1 

4090 LOCATE 2é.26:PRINT "H-GAMES":LO 
CATE 34,26:PRINT "wo" 

4166 LOCATE 26,22:PRINT "’-GAMES" :LO 
CATE 34.22: PRINT "6" 

4260 RETURN 

Notice how PEN 2 (blue) and PEN 3 (red) are used in this 
section, with PEN 1 at the end of each command to bring the 
text back to black each time. There is plenty of room left in 
this section for some sub-routines, but we shall enter those as 
they are needed. 

The bulk of the writing for this game is taken up with 
moves and conversions, starting at 1000 with placing the 
dominoes. This will entail producing two randomly chosen 
dominoes for the move, and the showing of two blank backs 
for the dominoes dealt to the House (the computer). 

1066 REM XKKKKKEXAKAKKE 

1610 REM PLACE DOMINOES 

1920 REM KKKKKKKAKKAKES 

1036 GOSUB 4416 

1440 LOCATE 6.14:PRINT M$:LOCATE 6.1 
4+1:PRINT NS:LOCATE &.14:PRINT O%:LO 
CATE 8.14+1:PRINT FPS 

1454 LOCATE 6,.8:PRINT CHRS¢ 246 >:LOCA 
TE 6,8+1:PRINT CHRS¢ 246>:LOCATE 6.3% 
PRINT CHRS¢24459:LOCATE 8,.8+1:PRINT C 
HRS. 246 2 

1464 GOUSUB 36B8 

1476 LOCATE 26.14:PRINT GH"+"IJ 
1460 LOCATE 2.22:PRINT "STICK OR THI 
STH S/T 3" 

1490 ¥YS=INKEYS:IF XS<o"S" AND XS >"T 
" THEM 1698 a 


Line 1050 prints the blank dominoes. Notice how the 
second half of each domino is placed below the first half by 
adding +1 to the Y coordinate. This could have been done by 
simply quoting the Y number itself (9 in this instance) but 
adding the +1 helps to keep one’s mind on the sequence of 
entries. CHR$(240) is the blank, but this-is not used in the 
routine of randomly selecting a domino, because it might keep 
the numbers so low that more than five dominoes might be 
asked for (Twist). We have allowed for only five. 

Line 1040 prints four domino halves (to make two 
dominoes) in the position used for your moves, while 1070 
prints (as scores) the number of dots on each domino. Two 
sub-routines have been used, and we shall enter one of these 
at 4400 now. 


4460 REM to 

4410 REM * RANDOM + 

4426 REM oa 

4438 AS=CHES( 241 9+CHRS. 242 D+ CHR 243 

I+CHRS¢( 244 5+ CHRS¢C 245 9+ CHR SC 246 D 

4446 BS=AS 

4456 CS=AS 

4460 DS=AS 

4474 ES=AS 

440 FS=AS 

4490 RANDOMIZE TIME 

4560 A=ITHT¢ RND#6 9+1 

4510 B=IHTC RND#E +1 

4526 C=INTCRND #6 +1 

4538 D=INTCRND#S 9+1 

4544 E=INTC RND#6 9+1 

4S5@ F=IHT< RMOKG o+1 

4560 M$=MIbS¢ AS.A, 1) 

4574 N$=M1bS¢ BS. B, 1 

4586 OS=MIDS$(CS$,C.1 

4596 PS=MIDSCDS.,D,1 

4664 OS$=MNIDS ESE, 1 
Fil 


> 
> 
y) 
? 
4610 RS=NIDS¢ FS, } 


é 
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4624 S$=MI0$° AS.0,1> 
4630 TS=MIDSCBS,E, 19 
4646 US=MIDS¢CS.F,1> 
4656 VS=MIDSCDS.A, 13 
4660 WS=MIDSCES,B, 12 
4676 Z$=MI0SCFS,.C.1) 


4636 RETURH 


This routine, which is carefully written in the simplest and 
most understandable form, produces randomly chosen 
dominoes that are (usually) different with each deal. The 
same method was used in an earlier game. It will be used 
many times during this game. The blank domino is not used 
here. 

The computer, having printed those two dominoes (line 
1040) goes to line 3000, so that the numbers on the dominoes 
can be changed into ordinary numbers for use in scoring. This 
routine is essential for the computer to be able to compare 
numbers, and decide whether or not to use another domino 
when trying to beat your efforts. 
3QUB REM KKEKEKAKARAEARES 
3016 REM DOMINO TO NUMBER 
BOZG REM KKKEXKAEKAAKAKKE 
3638 IF MS=MIDS°AS,.1.19 THEN 
3640 IF M$=MIOSCAS,.2,19 THEN 
3450 IF MS=MIDS.AS,3,1%9 THEM 
3068 IF MS$=M10S0A%,4,1% THEN 
3670 IF MS=MIDS(AS,.5.1%9 THEN 
3086 IF MS=MIDSCAS.6,.1% THEH 
30398 IF NS=MIDS.ES.1,.19 THEN 
3166 IF NS=MIDS°BS,2,1%9 THEM 
3116 IF NS=MIDS( BS$,3,1% THEN 
31z@ IF NS=MIDSCES,4,.1% THEH 
3138 IF NS=MIDbS(BS,5,.1> THEN 
3146 IF NS=MIDS.BS.6,1>9 THEM 
3158 GH=G+H 
3166 IF OS=MI0S¢CS$,1,.1% THEN 
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317@ IF OS=MIDS¢CS$,.2,1% THEN 
3184 IF O$=MIbS¢C%$,3,1% THEH 
3190 IF OS=MIDS¢C$.4,1>9 THEN 
3266 IF OS=MIDS¢CS$,.5,1%5 THEN 
3219 IF O$=MI0S°C%S,.5,1>9 THEM 
3226 IF FPS=MI0S¢0$,1,.19 THEN 
3230 IF PS=MIDS¢0$,2.19 THEN 
3246 IF PS=MI0SCD$,3.19 THEM 
3256 IF PS=MI0S¢D$.4,1% THEN 
3260 IF PS=M10$¢0$,5.1%> THEN 
S276 IF PSahtIbS¢0S,6,.1> THEH 
3268 IJ=I+J 

3298 RETURH 


This somewhat tedious (to enter) list of conversions is only 
for the first two entered. There will be more lists for each of 
the additional dominoes used. This method could be abbrevi- 
ated considerably by using just two strings (M$ and N$) in 
turn for all the different dominoes. When you have completed 
the game as it now stands you may like to try your hand (as an 
exercise) at doing just that. There should be sufficient vari- 
ation between one deal and the next to ensure different 
numbers on each deal. However, the purpose of this book, 
and the way in which it is written, is to ensure that you 
understand exactly what can be done by even the simplest 
form of BASIC. You will learn more about how to write 
programs by such an exercise than by any other method. 
When trying this don’t forget that the ‘variables’ used to 
represent the numbers on the dominoes will have to be 
different for each domino when printing the scores. 

Line 3290 sends the computer back to line 1070, where 
the two numbers (GH & IJ) are printed. Then you are asked 
to decide whether or not you want another domino to help 
you to reach the target of 21 (line 1080). Line 1090 makes 
the computer wait for your answer in the usual manner 
adopted for an INKEY$ input. 

Starting with line 1080 (already entered) is a routine of 
six lines that is repeated (with detail variations) a number of 
times. That sequence will be entered next. 


Hunn Pn nn 
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1100 IF X$="S" THEN 1290. 
1119 IF ¥$="T" THEN LOCATE 18.14: PRI 
NT Q$:LOCATE 16.14+1:PRINT RS 

1124 GOSUB 3300 

1134 LOCATE 28,14:PRINT "+#"KL 

1140 LOCATE 2,22:PRINT “STICK OR TWI 
STI S/T 3" 

115@ X$=INKEYS: IF X$<>"S" AND Mec >"T 
“THEH 1156 

116@ IF ¥$="5" THEN 1320 

1178 IF ¥$="T" THEN LOCATE 12,14:FRI 
NT S$:LOCATE 12,14+1:PRINT Ts 

1160 GOSUB 3440 

1199 LOCATE 32,.14:PRINT "+"MM 

1208 LOCATE 2.22:PRINT "STICK OR THI 
ST? S/T >" 

121@ X$=INKEVS: IF X$<3"S" AND XO>"T 
"THEN 1218 

1220 IF X$="S" THEN 1350 

1230 IF ¥$="T" THEN LOCATE 14,14:PRI 
NT US:LOCATE 14.14+1:PRINT 

1240 GOSUB 3520 

1254 LOCATE 26,14:PRIMT "+"0F 

1266 LOCATE 2,22:PRINT "STICK OR THI 
STU ST" 

1276 X$=INKEYS: IF XS<9"S" AND XS<>"'T 
"THEN 1270 

1289 IF ¥$="S" THEN 1360 

129@ LOCATE 2.22:PRINT " 


1300 Genes se Te 27.16: PRINT 
YSCORE:IF YSCORE>21 THEM 1414 

1318 GOTO 2000 

1326 LOCATE 2.22:PRINT " 


1336 *SCORE=GHt+IJ+EL: LOCATE 27.16:PR 
INT YSCORE: IF YSCORE?21 THEN 1414 
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1340 GOTO zaon 
1350 LOCATE 2,22:PRINT " 


1366 YSCORE=GH+IJ+KL+MH:LOCATE 27,16 
‘PRINT YSCORE:IF YSCORE + 21 THEN 14 
1@ 

1378 GOTO 2ouu 

1386 LOCATE 2,.22:PRIHT " 


1394 VSCORE=GH+I J+KL+MN+OP:LOCATE 27 
16: PRIHT YSCORE: IF YSCORE?21 THEN 1 
416 

1408 GOTO za ra 

1414 LOCATE 2.22: FRINT "YOU BUST":GO 
SUB 4224 

142@ LOCATE 2,.23:PRINT “ANOTHER GAME 
POY AMO" 

1438 Vag atlas IF ¥S<.o"'%" AHD YS<>"H 
" THEN 1436 

1449 IF very THEN 2535 


The number of times you press T (for Twist) controls 
how many of these six-line routines are used. Five should be 
enough. If (as can happen) you are blessed with a series of 
small numbers, and don’t reach 17, then you will have to be 
content with what you get. In over 100 tries I have never 
received less than 20 using all five dominoes. 

From 1290 to 1400 are the routines that transfer the moves 
to the computer (at 2000) but before entering these it is 
necessary to enter some more sub-routines in the 4000 and 
3000 sections. 


4216 REM KKAKEKEKEKAAAKK 
4226 REM * GAMES SCORE + 
4230 REM XXKHAKAARHARALK 
4248 HG=HG+1 

4256 LOCATE 34,26:PRINT HG 
4268 RETURN 
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4276 YG=YG+1 
4288 LOCATE 34.22:FRIHT YG 
4294 RETURH 


This small sub-routine (consisting of two parts) prints the 
number of games that have been won by either competitor. 
This is a handy way to keep the score. 


3300 IF OS=MI0SCES,1,.159 THEM K=1 
3314 IF QS=MIDSCE$,2,1) THEN K=2 
3326 IF G@$=MIDSCES$,.3,.1% THEN K=5 
S334 IF G$=MI0S°ES,.4.1% THEN K=4 
3348 IF Q$=NIDS(ES,5,19 THEN K=5 
3356 IF OS=MIDSCES.6,.1% THEM K=6 
3368 IF RS=MIOSCFS,1,1% THEM L=1 
3370 IF RS=MIDSCFS.2.1%9 THEW Lee 
S268 IF RS=MIDSOFS.3.1%9 THEN LES 
S394 IF RS=MIOSCFS,4,1%5 THEM L=4 
3460 IF RS=HIDSCFS.3.15 THEM L=S 
3414 IF RS=MIOCSCFS,.6,19 THEN Lee 


3426 KLEK+L 

3438 RETURH 

3446 IF SS=MIDSCAS. 1,19 THEM M=1 
3456 IF S#=NIDS(AS.2.1% THEN Mee 
3468 IF S#=MIDSC AS. 3.19 THEH M=3 
S478 IF SS=HIDSOAS.4,1>9 THEM M=4 
3468 IF SS=MIOSCAS.5.1%5 THEN M=5 
2498 IF SS=MIDbSCAS.6,1% THEN M=6 
3368 IF TS=MI0S6S,1,1% THEH H=1 
3518 IF TS=MIDS°6S.2.15 THEN N=2 
3526 IF TS=MIDS¢6$.3,.1%9 THEN N=3 


3538 IF TS=MIDS(BS,.4,.19 THEM N=4 
3540 IF TS=MIDS(BS.5.1%9 THEN N=S 
3550 IF TS=MIDbS°BS,.6,.1> THEH H=6é 
3568 MN=M+h 
3574 RETURH 
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3790 IF 2$=MIDSCFS$,2,1% 
3309 IF Z2S=MIDS¢FS.3,15 
3810 IF 2$=MIDS FS. 4,19 
86208 IF ZS=MIDSCFS,5,19 
3830 IF Z2S$=MIDS(FS,6.19 
3840 GR=O+F 

3858 RETURN 


This long list is tedious to enter, but after a time one begins 
to work out a routine for entering such sections by EDITing 
Because these lines sit on the screen directly 
above each other in regular columns they are easy to check. 
When the first one of any six lines is entered the only altera- 
tion for the next line is the line number, and the change of a 


the line above. 


IF US=MIOS" CS, 


1, 


IF US=MIDSI CS, 2, 


IF US=MIDS" CS, 
IF US=MIOS. CS, 
IF US=HICSC CS, 
IF US=MIDS¢ CS, 
IF ¥S=MIDSC DS, 
IF ¥S=MIDSC DS. 


M IF VS=MIDS¢ DS 


IF ¥VS=M1DS¢ DS, 


IF VS=MIDSC DS, 
IF V$=MIDS« Da, 


a OP=0+P 
A RETURM 


3 


4, 
6, 
1, 
2 
3 
4, 
Se 
6, 


é 


é 


19 
1) 
213 
13 
re 
15 
1% 
3 
19 
1) 
1% 
19 


IF WH=MIDS°E$,1,1%5 
IF WS=MIDS ES, 2, 
IF WS=MIDSCES.3. 1% 
IF WS=MIDS( ES. 4,12 
IF WS=MIDSCES.5,15 
IF WS=MIDS(ES,.6,1% 


number in two places (rising by 1). 
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A IF 2$=MIDSCF$, 1,19 


THEN 
THEH 
THEH 
THEH 
THEH 
THEH 
THEM 
THEH 
THEH 
THEN 
THEH 
THEH 


THEM 
THEN 
THEH 
THEN 
THEN 
THEH 
THEH 


> THEN 
> THEH 


THEN 
THEN 


» THEH 


TVWUVDUDAOADOADSa 
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The final list to enter is again a long one, and consists of 
the moves made by the computer. First of all (line 2030) is 
GOSUB 4410, so that the computer has fresh access to the 
randomly chosen dominoes. At line 2040 two are printed in 
place of the two double blanks put there at the start of the 
game. Then the moves continue in a similar format to those at 
1000; except that instead of the TWIST/STICK options the 
computer is given a series of options (shown first in lines 2080 
to 2110). These will be explained after the list is entered. 


2OUG REM KAXEAKAKKKS 

2616 REM HOUSE MOVES 

2026 REM #HKKEKAEAEE 

2030 GOSUB 4416 

2046 LOCATE 6.8:PRINT MS:LOCATE 6. 8+ 
1:PRINT N&:LOCATE &,.8:PRINT O%:LOCAT 
E 8,6+1:PRINT PS 

2656 GOSUB 3606 

2066 LOCATE 26,.28:PRINT GH"+"IJ 

2076 FOR 4=1 TO 2060:NEXT & 

2086 HSCORE=GH+IJ:IF HSCORE + 17 THE 
N LOCATE 27.16:PRINT HSCORE 

2a9a IF HSCORE > 21 THEN 2536 

210G IF HSCORE < 18 THEN 2126 

2110 IF HSCORE > 17 THEN 2354 

2126 LOCATE 16,.8:PRINT Q$:LOCATE 18, 
S+1:PRIHT RS 

2136 GOSUEB 3306 

2146 LOCATE 28,8:PRINT "+"KL 

2156 FOR x=1 TO 2664:NEXT &% 

2166 HSCORE=GH+IJ+KL: IF HSCORE > 17 
THEH LOCATE 27,.16:FRINT HSCORE 

2176 IF HSCORE > 21 THEN 2536 

218@ IF HSCORE < 18 THEN 2286 

2196 IF HSCORE > 17 THEN 2356 

2266 LOCATE 12,8:PRINT S&:LOCATE 12, 
S+1:PRINT TS 

2216 GOSUB 3446 
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e224 LOCATE S2.8:PRINT "+"MN 

2230 FOR X=1 TO 2688:HEAT 

2246 HSCORE =GH+IJ+KL+MH: IF HSCORE > 
1? THEN LOCATE 27.16:PRINT HSCORE 

2294 IF HSCORE?21 THEN 2538 

eco IF HSCORE < 16 THEN 22s 

eer IF HSCORE > 17 THEN 235 

2268 LOCATE 14,.8:PRINT US:LOCATE 14, 

S+1:FRINT VS 

2298 GOSUE 3558 

368 LOCATE 36.5: PRINT "+"0P 

116 FOR 4=1 TO 2660:HEAT & 

326 HSCORE =GH+IJ+KL+MN+0P: IF HSCOR 
7 17 THEH LOCATE 27. 1@:PRINT HSCOR 


ts (3 = 


MM MP pap 


334 IF HSCORE > 21 THEN 2536 

2346 IF HSCORE + 17 THEH 235% 

2350 IF HSCORE = YSCORE THEM ¢s3@ 
2368 IF HSCORE + YSCORE THEM 2436 
2376 IF HSCORE < YSCORE THEW 2436 
2366 LOCATE 2.22:PRINT "IT’S A DRAW" 
2394 LOCATE 2.23:PRIMT “ANOTHER GAME 
CYAN 3" 

2466 ‘S=INKEYS: IF YS<o"7" AND YS. >"H 
" THEM 2408 

e414 IF Y$=""" THEM 2568 

2420 IF ‘$="N" THEH 2420 

2434 LOCATE 2,22:FRIHT "I WIN": GOSUE 
4220 

2446 LOCATE 2.23:FRINT “ANOTHER GAME 
TONS ON 

2450 TS=INKEVS: IF YS<>" 4%" AND 7S. "NH 
" THEH 2450 

2460 IF Ys="" THEM 2568 

2474 IF Y$="H" THEN 2478 
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2484 LOCATE 2.22:FRINT "YOU WIN": GOS 
UB 4276 

2496 LOCATE 2.23:PRINT "ANOTHER GAME 
TOYZ" 

2566 ‘Y*S=INKEYS: IF YS<Ko"7" AND YSC>"N 
" THEN 2508 

2516 IF Ys=""*" THEH 2530 

2526 IF Y$="H" THEN 2528 

2536 LOCATE 2,22:FPRINT "I HAVE BUST" 
‘GOSUB 4276 

2544 LOCATE 2.23:PRINT "ANOTHER GAME 
TOY/HO" 

255@ YS=INKEYS: IF YS<o"'"" AND YS<>"N 
" THEN 2558 

2566 IF Y$=""" THEN 25868 

2576 IF YS="N" THEN 2570 

2586 LOCATE 6.8:PRINT " : 

2596 LOCATE 6.9:PRINT " " 

2606 LOCATE 6.14:PRIWT " . 
2616 LOCATE 6,.15:PRIWT " 
2624 LOCATE 26,¢6:FRINT " 


2634 LOCATE 26.14:PRINT " 


2646 LOCATE 27,.16:PRINT " ‘“ 
2654 LOCATE 27,.16:PRINT " a 
2666 LOCATE 2.¢22:FRINT “ 


267@ LOCATE 2.23:PRINT " 
au 

2686 GOTO 1664 

In line 2080 the score (called HSCORE) is entered, and if 
it is more than 17 (the number usually chosen as the dividing 
line in pontoon) the computer prints its total, and (in line 
2110) goes to 2350. There a comparison is made with 
YSCORE (Your score) and, with the three alternatives (Equal, 
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:More, or Less) moves to other lines that terminate that 
sub-game, and add to either of the main scores. 

In lines 2090 to 2110 other alternatives are given (similar 
to our way of thinking when deciding to TWIST or STICK) 
that send it to other lines. At this stage it will pay you to 
study very carefully the way in which these lines are used. Do 
NOT forget line 2070, which is there to introduce a pause, so 
that the computer appears to be thinking things out. Without 
that pause line the computer would move so fast that the end 
would arrive before you had time to see what was happening. 

Lines 2120 to 2320 are a series of repetitions of the moves, 
each for a different domino. When lines 2350 to 2370 are 
reached take particular note of how they are used: IF 
INT(HSCORE) = INT(YSCORE) THEN 2380. This ensures 
that the number of HSCORE is compared with the number of 
YSCORE; and for each comparison there is a different line to 
go to. A draw adds nothing to either game score, while ‘I 
WIN’ or ‘YOU WIN’ adds to the appropriate score. ‘YOU 
BUST?’ in line 1410, and ‘I HAVE BUST?’ in line 2530 similarly 
adds to the appropriate score. 

There is a lot of information about how to program games 
into the Amstrad 464 in this chapter, and after it is safely on 
tape it would be a beneficial exercise to alter parts of it to 
suit your own ideas. 
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Chapter Nine 
ORIGIN & DRAW USAGE WITH COLOURS 


In the previous chapters there have been many examples of 
making U.D.Graphics; of using FOR/NEXT loops in various 
ways; some practice with INKEY$ for inputs; a little experi- 
ence with variables; and the use of LOCATE/PRINT state- 
ments. ORIGIN and DRAW have been used, but not to any 
great extent, and it is time now to extend that part of your 
knowledge: not with a game this time, but with a program 
full of tips that will be well worth keeping for future 
reference. 

ORIGIN and DRAW use the PIXEL coordinates: from left 
to right along the screen bottom (for columns) and numbered 
from 0 to 640 (the X numbers); and up the right-hand side 
(for rows) and numbered from 0 to 400 (the Y numbers). 
For instance: ORIGIN 320,208: is a spot near the screen 
centre. It must be remembered that PIXEL coordinates 
(their X,Y numbers) must always be written in that order: 
bottom (columns) and side (rows). Fix this most firmly in 
your mind. 

There are many instances where a filled-in triangle (or one 
made with stripes) can be used to good effect when writing a 
program. But it is not easy to remember how a triangle that 
points in this (or that) direction can be achieved; for a con- 
siderable amount of mental juggling with the — and + signs is 
needed. Therefore a program incorporating different ways of 
doing this can be of great use. In this program the triangles 
are assembled to print on the screen with their own line 
numbers under each one, so that in future it will be easy to 
locate one at a glance. This program will be written in 
sections. 


3S REM XEKKKKRAKAKER 

10 REM ORIGIN & DRAW 

15 REM FEKKKRARARARS 

26 INK @.26:INK 1,.6:INK 2,11:IMK 3.6 
ZS BORDER 2:FPAPER @:FEN 1:CLS 
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36 FOR K=49 TO @ STEP-4:ORIGIN 62-%, 
322-X: DRAW +4%,6,1:NEXT & 

46 FOR k= TO 46 STEP 4:ORIGIN 76,38 
2-H: DRAW A,B: WHEAT &% 

5@ FOR K=46 TO @ STEF~4:ORIGIN 156.3 
42+4 DRAW -A,@,2:HEAT 

66 FOR K=4@ TO &@ STEP-4:OGRIGIN 174.4 
+342: DRAW ®%.@: NEXT & 

78 FOR «=42 TO @ STEP-6:ORIGIN Atel 
,342:DRAW 6.4,1:NEAT & 

86 FOR “4= "t0 42 STEP 6:ORIGIN 365-% 
242: DRAM B.A: MEAT & 

96 FOR x=40 TO @ STEP-6:ORIGIN X+38¢ 
,332: DRAM 6.-K,2: NEAT % 

146 FOR X=44 TO @ STEP-6:ORIGIN 4@5- 
ha ae Z: : DRAW H,—-K: NEXT 4a 

114 FOR «=44 TO @ STEP-4: ORIGIN 476- 
%, SS2~-K%: DRAW AKC. 8,3: HEAT 

126 FOR x=4 TO 40 STEF 4:ORIGIH S5b- 
4, 342+: DRAW K¥2, 6: NEXT &% 

125 LOCATE 3,5:PRINT "S68 46 58 64 7 
86 94 160 116 12@" 


When this list is entered and RUN, it will produce on the 
screen a row of triangles made with lines. Whether the triangle 
is solid or made with lines depends entirely on the STEP value 
in the FOR statement. Numbers that run upward have STEP 
4 (or 6); those that run downward have STEP—4 (or —6). If 
the STEP number is changed to 1 the triangles will be solid; 
they have been made with lines in this program to make it 
easier to understand how the triangle is constructed. 

The second point about these STEP values has to do with 
this computer: some are STEP 4 and some are STEP 6. When 
the lines to be drawn are horizontal ones the STEP number is 
4; and when vertical the STEP number is 6. This is because on 
the Amstrad (and this has been mentioned previously) the 
pixels are less wide than they are high. Therefore, to make 
them print on the screen as of equal distance apart, the 
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difference in Step number is used. If this is not quite clear to 
you, then alter all the STEP 6 values to 4, and study the 
difference this makes. 

A different point to make refers to the use of colour. It 
can be seen that the pairs of triangles are of different colours. 
This is easy to control with the Amstrad because the DRAW 
command has a third part to it with which to control its 
colour. This third part in the statement (after a comma) 
controls the colour. It must be one of those defined in the 
INK statement (line 20), and it will operate only (repeat 
ONLY) on the DRAW statements that follow. This can be 
seen by comparing the DRAW statements in all lines entered 
so far. Lines 30, 50, 70, 90, and 110 have this addition to the 
DRAW statement. This is a handy facility. 

The manner in which the various + and — signs are used in 
ORIGIN and DRAW statements needs a more detailed 
explanation (and study). We will do this with an example 
using simple numbers: FOR X=0 TO 20 STEP 4: ORIGIN 
100+X,100—X: DRAW X,0: NEXT X. 

This draws a triangle sloping from a point at 100,100 down 
to the right; because the FOR NEXT loop controls it. It first 
draws a dot at 100,100: second is a line of 4 pixels at 
100+4,100—4: the third is a line of 8 pixels at 100+8,100—8 
(108 92): the fourth is a line of 12 pixels at 100+12,100—12 
(112,88): the fifth is a line of 16 pixels at 100+16,100—16 
(116,84); and so on until the FOR/NEXT loop reaches the 
final line (in this case) of 20 pixels at 100—20,100—20 (120, 
80). 

If you have followed this you will now be able to construct 
triangles of any shape. If you have not, then enter at line 
5000 the formula given above, and RUN it after clearing the 
screen (CLS). It will appear at the bottom left-hand corner of 
the screen. Count the number of lines, including the dot: 0 
TO 20 divided by 4 (the STEP value) gives 5, but including the 
original position (0) it is six: a dot, a line of 4 pixels, one of 8 
pixels, and so on. 

ENTER LIST 5000 (without clearing the screen) and the 
line will appear at the screen top without disturbing the 
triangle. .Now go through the explanation again. It should be 
perfectly clear. Try altering the + and — signs (only one ata 
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time) and study the result. With more experiments like this 
you will soon grasp the principles involved. 

We will now enter the next row of triangles, for they intro- 
duce some other differences in managing DRAW statements. 


136 FOR X=36 TO @ STEF-6:ORIGIH 7H-A4 
280-4: DRAW 6. 4%2, 1: MEAT A 

146 FOR ¥=4 TO 36 STEP 6:ORIGIN 164+ 
%, 280-4:DRAW G.4KS: MEAT 

154 FOR x=6 TO Se STEF 4:ORIGIH 164- 
473, 386-4: DRAW “A*SEZ,6.2:NEKT X% 

160 FOR X=56 TO @ STEP-4:ORIGIN 2465- 
4S, 250+ DRAW K“Ske, 8: NEAT % 

176 FOR #=0 TO S2 STEP 6:ORIGIN 334- 
RK, 2ret+h/S: DRAM O.-K/“SKE,3+ NEAT & 

186 FOR x=52 TO 6 STEP-6: ORIGIN 358+ 

4,2727-4/3: DRAM 8, AS MS NERT & 

190 FOR x=@ TO 32 STEP 6: ORIGIN 4SZ+ 
%, 248+% ‘ORAM 8,X#1.25,1:NEXT # 

2a@ FOR #=3@ TO @ STEF-6:ORIGIN Sse~- 

K. 245+ : DRAW 8,481. 25:NEXT # 

2Aa5 LOCATE 3.11:PRINT "136 148 156 1 
646 176 188 196 2b" 


In line 130 and onward it will be seen that instead of a 
tight-angled triangle we are now drawing equilateral triangles 
(like two right-angled triangles back to back). What happens 
is that the X multiplied by 2 does just that. In some cases a 
division sign is used also, and this makes the triangle much 
narrower. Take any of these lines and transfer them to 5000 
to experiment with, and you will learn a lot, particularly with 
such complex lines as those at 170 and 180. They require 
studying quite a lot to see how they work. Lines 190 and 
200, although they produce peculiarly shaped triangles, are 
more straightforward. It is time now to enter the final list 
in this section. 
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216 FOR X=S4 TO @ STEF-6:ORIGIN S2-4 

»218-K: DRAW 6.%*6.5.3:NEXT & 

2@ FOR X=5S4 TO @ STEP-6:ORIGIN 122+ 

216-% ‘DRAW @,.X%*B.5: NEAT % 

@ FOR X=6 TQ 32 STEP 4:ORIGIN 186+ 

288-% : DRAW X*¥2.8,1:NEAT % 

@ FOR X=32 TO @ STEF-4:QRIGIN 335- 

248-4: DRAW -X¥42,G:NEAT 4 

56 FOR K=32 TO 6 STEF-4:ORIGIH 384+ 

M174+k DRAW K4#2.6,2: NEAT & 

zéa FOR x=32 TO 6 STEF-4:ORIGIN Ssé- 

(,174+%: DRAW -H#2,0:NERT 

Z65 LOCATE 3.16:PRINT "216 226 

3H 246 256 8266" 

276 FOR x=6 TO Se STEF 6:ORIGIN S2-4 

74: DRAW K,O+K#2,1: NEXT % 

260 FOR X=6 TO 32 STEF 6:ORIGIN 182+ 

X74: DRAW -4,6+KF2: NEAT 

296 FOR K=6 TO 32 STEF 6: ORIGIN 216- 

K. 74: DRAW -K,8+K%K2,2: NEAT 4 

3@6 FOR X=6 TO 32 STEP 6: ORIGIN 25c+ 

%, 74: DRAW %,6+Khk2:MEXT 4 

316 FOR x=6 TO 32 STEP 6:ORIGIN 368- 

%,74: DRAW K*2,6+%42.3: NEAT 4K 

326 FOR X=6 TO 32 STEF 6: ORIGIN 436 

+474: DRAW -#42, 04042: NEXT 4 

336 FOR ¥=6 TO 26 STEP 4:ORIGIN Si1é- 

K,72ta: DRAW X.0+K42,1: NEAT X 

344 FOR xX=24 TO 6 STEP-4:ORIGIN S7é+ 

K, 72th: DRAW -K,K*R2: NEAT & 

356 LOCATE o1 ee: PRINT "276 ze 250 
366 314 326 33% 346" 

366 LOCATE 2,24: PRINT "PRESS P FOR N 

ExT SECTION" 

376 GS=INKEY’S: IF QS="" THEN 376 

Sea IF @$="P" OR QS="F" THEN CLS:GOT 

0 1608 
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In these two rows of triangles are some with fairly involved 
instructions. Line 320, in particular, attracted my attention 
as worthy of use in a scene. It reminded me of the slanting 
sails used by boats on the River Nile. The DRAW command of 
that line is fairly complex, but easily handled. To make it 
bigger it would be necessary to alter only the FOR part of the 
command. 

I shall use that, and some of the other triangles, in the next 
section we write, but before we move to that it would be 
really worthwhile if you took any lines that interested you, 
EDITed them by adding 5 in front of their line numbers to 
bring them into the 5000 section, and then carried out as 
many experiments as you could manage. The real way to 
master BASIC is to practice. 

Lines 360 to 380 transfer the screen display to lines start- 
ing at 1000, and there.we shall build a scene using triangles. 


10GG REM KKEKEKKKARAKAKAKARKE 

1910 REM SCENE WITH TRIANGLES 

1020 REM *KXKAKAKAKARARAKARES: 

103@ INK @.25:INK 1,2@:INK 2,2: INK 3 
113 

1046 BORDER 15:PAPER @:FEH 3:CLS 
1@56 GOSUB 1566 

1@6@ PEN 1:FOR 4=1 TO 48:FOR Y=1 TO 
3:LOCATE 4.7: PRINT BS: NEXT ‘Yi NEAT &: 

PEN 3 

1@7@ PEN 2:FOR =1 TO 4@:FOR Y=15 TO 
2z:LOCATE K,.‘:PRINT AS:NEXT VY: NEAT 
X:PEN 3 

166@ FOR X=46 TO @ STEP-2:ORIGIN 437 
-K,362-%: DRAW K*Z,6,35: NEXT 4: REM PR 
AMID 

1698 FOR X=66 TO @ STEP-2:ORIGIN S24 
“4, 364-4: DRAW K¥2,0: NEAT 4: REM Po'RAM 
ID 

1104 FOR 4=26 TO @ STEP-2: ORIGIN 366 
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~4, 366-K DRAW K#2. 0: NEXT 4: REM PIRAM 
It 


1116 FOR x=6 TO 4@:ORIGIN 165+%, 128- 

* DRAW K*¥2,6.2: NEAT *: REM BORT HULL 

11z4@ FOR xk=46 TO @ STEP-2:ORIGIH 462 

“4: 126-4: DRAW -K#2,.0:WHEXT 2%: REM BOAT 
HULL 

1136 FOR K=@ TO Z2@:ORIGIH 286-x#3.,848 

+4: DRAW X¥6,8:NEXT X:REM BORAT DECK 

1144 GRIGIN 214, 106: DRAW 46,160,3:RE 

M MAST 

1156 FOR x=@ TO 114:ORIGIW 242+, 166 
‘DRAW -K*¥2,0+K#2,1:HEXT &: REM BORT 5 

AIL 

1166 LOCATE 2.11:PRINT GS" "“CsDs" 

"CS$0S:LOCATE 2.12: PRIMT HS" "“ESFS" 
"ESFS 

1178 LOCATE 18,.11:PRINT CS0$" "CDS 
" "GS:LOCATE 16,12:PRIHT ESFS" “ESF 

"Hg 
1160 LOCATE 1,24:PRINT "FRESS T FOR 

TRIAMGLES" 

1196 RS=IMKETS: IF RS="" THEM 1198 
126g IF RPS="T" OF RS="t" THEN CLS: RU 

HM 

1493 GOTO 1493 

1560 SYMBOL AFTER 246 

1516 SYMBOL 246,6,.6,.68,195,6,.0,66,19 

o' REM WAVES 

seu SYMBOL 241.85,.6,.176,6,85,6.176, 


1536 SYMBOL 242.6.0.45.113.243,63.63 
»al:REM CAMEL HEAL 
1544 SYMBOL 243,64, 596,246,248,254,255 
,2d0/ 200° REM CAMEL RUMP 
1SSe@ SYMBOL 244,7,5,5,9,3,27,6,8:REM 
FROMT LEGS 
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1566 SYMBOL 245.,14.16.18,18.18.54.4, 
6:REM BACK LEGS 

1576 SYMBOL 246,.6,6.6,24.26.8.29, 60: 
REM MANS HERD 

1586 SYMBOL 247.66,66, 124.124,124,46 
@,6:REM MANS BODY 

1596 AS=CHRS*< 240 4: BS=CHRSC 241 >: CS=CH 
RSC 242 9: DS=CHRSEC 243) 

1660 ES=CHRS( 244 >: FS=CHRS< 245 >: GH=CH 
RS¢ 246 9: HS=CHRSEC 247 > 

1616 RETURN 


In lines 1030 and 1040 we re-set the inks to be used, and 
also change the BORDER colour. At 1500 there is a section 
for U.D.G.s, because we need a sky colour, some water for the 
Nile, and some figures to place in the scene. Obviously there 
must be some pyramids, and these are drawn in lines 1080 to 
1100, using the triangle from example on p.109 (line 110). 
The alterations made to this are to make them solid, to give 
them different sizes, and to locate them in different places; 
otherwise the formula used is the same. 

For the boat and sail four different triangles are used: from 
lines 230, 240, 120, and 320. Note particularly the difference 
made to example 320 in line 1130: The X part of ORIGIN is 
multiplied by 3; and the X part of DRAW is multiplied by 6. 
This extends the triangle horizontally, and is quite apart from 
the differences caused by a different location. 

The sail (line 1150) is made bigger than example 320 in 
the ‘FOR’ part of the statement. This is done by increasing 
the number ‘0 TO 32’ to 0 TO 110’, and the STEP section is 
left out to make the sail solid. In ORIGIN some different 
locations are used, of course, but the DRAW section is 
unchanged — except for the addition of the colour after the 
comma. 

Take particular note that the mast is drawn (INK 3) vefore 
the sail, so that the light blue sail obliterates part of the mast 
as it is drawn. The light blue of the sail is the same as the 
colour used for the sky, but it looks different because the 
sky is made of dots, and allows the yellow paper to show 
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through. This is one of the ways in which extra colours can 
be made. 


Colours 


It has been mentioned previously that only four colours are 
available on the screen — including the one used for PAPER, 
the screen background. On page F3.7 of the User Instruction 
book is a program to demonstrate the colours. I found that 
one far too confusing, and so devised one of my own. Enter 
this now, using a new section that is on its own: use RUN 
2000. : 


20GB REM KAKKKAAAAES 

2016 REM COLOUR TEST 

2O20 REM KKKKAEEEEEE 

263@ FOR Z=26 TO @ STEP-1 

2846 FOR «=6 TO 2é 

2050 INK 6.26:INK 1,.6:INK 2.4: INK 3, 


a 

2666 BORDER #:PAPER 3:PEN 1:CLS 

2674 LOCATE 14,.3:PRINT "BORDER": % 

2489 LOCATE 14,16:FRIHT "PAPER" 2 

2630 LOCATE 16,12:PRINT "PEN"G4# 

2164 PEH 2: LOCATE 16.14:PRINT "THIS 
IS THE TEST": PEN 1 

2119 FOR Y=1 TO 2o6a:NEAT ¥ 

2iza HEAT %: NEAT 2 


This, when entered and RUN, takes a considerable time to 
reach completion because of the pause caused by line 2110: 
FOR X=0 TO 2000. Change this to 200, and it runs through 
in just over five minutes; but to really study each colour, and 
how it could be used with others, replace that 2000: it is 
slower, and can easily be stopped by pressing ESC. Pressing 
the space bar re-starts it. That pause in line 2110 is complete- 
ly within your control: reduced to 20 the sequence flashes 
through in about three minutes. If left at 2000 it takes over 
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one minute to go through each PAPER colour (changing the 
BORDER and Test line 26 times). 

Describing the actual colours produced by the Amstrad 
464 is not too easy. The list on page F3.2 is no more than a 
general guide, for a little poetic licence must be allowed, but 
on the whole the colours are brilliant. However, two things 
have been attempted at the same time by the Amstrad pro- 
grammers. They have catered for shades of greyness for the 
mono-colour monitors, and attempted to give a really good 
range of colours for the colour monitors. 

Some of the colour monitors are evidently not adjusted too 
well, for the first one I received produced a few brownish- 
green colours near the middle of the range (at 9, 10, 12, and 
13). However, a change of monitor soon made a big differ- 
ence, and now I have only one criticism: 13, white, is really 
a mid-grey. By contrast most of the colours available are so 
bright and clear that one is constantly surprised. They give a 
wonderful display when used properly. 
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Chapter Ten 
A THREE-DIMENSIONAL GAME 


For this final chapter a game of Noughts and Crosses has been 
chosen. Not an ordinary game, but one with three sets of 
boards that are above one another, so that as well as having 
eight 3-in-line rows on 4 single board, there are also eight 
each on the other boards, giving 24; and in addition there 
can be more 3-in-line rows between the three boards: nine 
straight down, and sixteen diagonally down. This gives 
forty-nine possible 3-in-line results, and makes it increas- 
ingly difficult to plan moves ahead as the game progresses. 

The game is designed for two players (not the computer) 
and our first task is to design the.type of board display on 
which it will be played. After numerous attempts at 
drawing three boards to give an illusion of depth (3-D) I 
decided on square boards, one above the other, but tilted 
slightly, and with the nearest edge of each board thickened a 
little. The boards are viewed from slightly above. After this 
triple board was decided on, it was time to plan the pro- 
gram. Sections would be needed for X moves and O moves; 
one for the conversion of locations to X,Y numbers; a 
section for the screen display, and one for the graphics. 


1@ REM KKKKXKKKAKKKKAKKAKKKEK 
26 REM 3-D NOUGHTS & CROSSES 
30 REM XXKXKEXHAKAKKKAKKAKKK 
4@ INK @,25:INK 1,9:INK 2,14:INK 3,6 
5@ BORDER 13:PAPER @:FPEN 1:CLS 
64 GUSUB Sone 
74 GOSUB 4000 
1060 REM *£ee4EES 
1416 REM K MOVES 
1026 REM FKKEEKKE 
1499 LOCATE 2.22:STOP 
1566 REM keeEEEE 
15196 REM 8 MOVES 
1520 REM KKKKKKX 
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1993 LOCATE 2.22:STOP 
2060 REM KEXXKKKEKEKE 
2014 REM CONVERSIONS 
2U2H REM AKAKAKAALES 
2999 LOCATE 2,22: STOP 
4466 REM XEKEAE 

4814 REM SCREEN 

4026 REM *XAEAK 

4526 RETURH 

SQGG REM FHAKAAKAKAKAE 
5618 REM U.D.GRAPHICS 
SQLH REM KXXKKKAKEKAK 
5068 RETURN 


Line 40 specifies the colours to be used: one for PAPER 
and three for PEN. Line 50 sets the BORDER at green, and 
the PAPER to pastel yellow. It is necessary now to form the 
graphic characters, X and O, and this is soon done in a very 
short section at 5000. 


S436 SYMBOL AFTER 246 

5646 SYMBOL 246.195, 182.68,24, 62, 162 
195,6:REM Xx 

S@S8 SYMBOL 241,60,126,195,195,195.,1 
26.66,6:REM OG 


With this entered we can continue with the designing of 
the triple board at 4000. The numbers for each position will 
be put in first (1 to 9, three times), and the board can then be 
drawn around them. The final structure is of three boards in 
layers, held in position by a solid board at the back, and by 
two stout supports at the front edges. This is contrived in 
lines 4040 to 4220, which we will enter now, together with a 
temporary STOP notice (4230 GOTO 4230) in order that we 
can study the result on the screen without the intrusion of a 
STOP notice. 
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4036 K=6:FOR Y=3 TO 17 STEP 7:LOCATE 
aV:PRINT "1 2 3": NEXT ¥ 

4444 X=6:FOR Yeo TO 19 STEP f ‘LOCATE 
K.'¢: PRINT "4 5 6":NEXAT ¥ 

4656 X=6:FOR Y=7 TO 21 STEP 7:LOCATE 
x Y:PRINT "7 & 9": NEAT ¥ 

4466 FOR X=54 TO 66 STEP 2:=54:ORIG 
IH 4.7: DRAW 6.225, 1:NEXT & 

407@ FOR X=176 TO 184 STEP 2:‘/=56:GR 
IGIN #7: DRAW 6.224: NEAT 

40¢4 K=56:FOR Y=54 TU S58 STEP 2:ORIG 
IN 4.7: DRAW 128,0:NEXT ¥ 

4990 K=56:FOR Y=166 TO 176 STEP 2:OR 
IGIH 4.7: DRAW 128,.6:NEXT 

4168 X=S56:FOR Y=276 TQ 262 STEF 2:0 
IGIN &,Y: DRAW 128,.6:NEXT 

4110 ORIGIN S6,.56:D0RAW 14,96: ORIGIN 

56.16¢8:DRAW 14.96:ORIGIN 36,230: DRAW 
14,96 

412@ ORIGIN 162,56:DRAW -14,96:ORIGI 
N 182,168:DRAW -14,.96:ORIGIN 182.2808 
:DRAW -14,96 

4136 ORIGIN 72.152:DRAM 94,6:ORIGIN 

72.264: DRAW 94,0:O0RIGIN 72,376: DRAW 

94.4 

4144 FOR x=72 TO 166 STEP 6:Y=154:0R 
IGIN &.Y: DRAM @.18,1:NEAT 

4156 FOR x=72 TO 166 STEP 6:'=266:OR 
IGIN &.¥: DRAW 6.1G:NEAT % 

4160 ORIGIN 76.152:DRAW @.16.1:ORIGI 
N 7@,.264:DRAW 6.16:ORIGIN 168. 152:DR 

AW @.16:ORIGIN 168,.264:DRAW 6.16 

41708 ORIGIN 62,.88:DRAW 114,@0,.2:ORIGI 

N 68.118:DRAW 164.6 

4186 ORIGIN 62.260:DRAW 114,.6:ORIGIN 
66,236: DRAW 166.8 
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4190 ORIGIN 62,312:DRAW 114,6:ORIGIN 
68.242: DRAW 166.8 

4266 ORIGIN 164,.66:DRAW 6.92:ORIGIN 

136.66:DRAW 6.92 

4214 ORIGIN 164,172:DRAW @,.92: ORIGIN 
136,172:DRAW 6.92 

4220 ORIGIN 164.284:DRAW @.92:ORIGIN 
136,284: DRAW 6.92 


Temporary line 4230 holds the computer in abeyance after 
it has printed the earlier entries; to get out of its influence 
press ESC twice. This will produce a BREAK/READY notice 
on the screen. 

With the lines just entered we have drawn the structure of 
three boards, one above another. The two uprights of the 
front are made with four lines each — drawn with the aid of 
FOR/NEXT loops in lines 4060 and 4070. In lines 4080 to 
4100 the board front edges (3 lines each) are similarly drawn. 
The rest of the lines to 4220 are straightforward ORIGIN/ 
DRAW statements using the third factor after DRAW for 
colour where necessary. 

The triple board as it now appears seems to be satisfactory, 
so we can proceed with placing a letter for each board: A, B, 
and C, and with entering the title, the instructions, and the 
score positions. The two score positions have different 
colours: red for X, and blue for O. This colour change will 
also be used for the X and O on the board while playing. 
Keeping a score is quite essential in this game, for it is difficult 
to keep a mental count when the 3-in-line numbers may be so 


4236 LOCATE 3.5:PRINT "A" :LOCATE 3,1 
2:PRINT "B":LOCATE 3.19:PRINT "C" 
4246 PEN 3:LOCATE 16,.3:PRINT "3-DIME 
NSTONAL" :LOCATE 26.5:PRINT “NOUGHTS 
& CROSSES" :PEN 1 

4250 PEN 2:FOR K=15 TO 37:LOCATE X.2 
‘PRINT "A": NEAT X:X=15:FOR Y=3 TO 5S: 
LOCATE X.Y:PRINT "X":NEXT Y:PEN 1 
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4266 PEN 2:FOR A=15 TO 37:LOCATE *,6 
=PRIWT "A":HEAT 4 x=S7:FOR Y=3 TO S: 
LOCATE *.Y:PRINT "A": NEAT Y:PEN 1 
4276 LOCATE 16.¢:PRIMT "WINNER HAS MM 
OST LINES": LOCATE 22.1G:FRINT "OF TH 
REE" 

4284 PEN 3:LOCATE 26,.12:PRINT CHRSC2 
40>" GOES FIRST":PEN 1 

4296 LOCATE 16.14:FRINT “PRESS LETTE 
R &" LOCATE 26.15:PRINT "THEN NUMBER 


4200 PEN 3:LOCATE 19,13:FPRINT "SCORE 
"| CHRS¢ 24095" :": PEM 1 

431@ PEN 2:LOCATE 19,.26:PRINT "SCORE 
"ZS CHRS! 24195" :": PEM 1 


Again add a temporary line: at 4500 this time: 4500 
GOTO 4500. This prevents the RETURN at 4520 function- 
ing, and you can inspect the screen for mistakes; we all make 
them. 

After erasing 4500 we must now move to section 2000, 
the conversions. In this game we have three sets of location: 
A, 1 to 9; B, 1 to9;and C, 1 to9. To persuade the computer 
to recognise these locations is relatively easy with the Amstrad 
464. Section 2000 will do it, and can be used as a GOSUB 
position which will be called for by both X and O. 

The entries at 2000 are tedious, but not too long, and can 
be written in by typing the first line of conversions (line 
2030), and then EDITing it for the others. For each letter 
(A, B, C) the only alterations are to the line number, the 
Y$= number, and the X,Y location at the end of each line. 
Don’t forget to change the A to B, and B to C for the other 
two sets of nine lines. 


2826 _IF 4$="A" AND S="1" THEN LOCHT 
E 6 
2040 “IF ME="A" AND Ys="2" THEN LOCAT 


S43 
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x$="A" 
x=" A" 
x6=" A" 
b=" A" 
A=" A" 
x$="A" 
=F" 
xe="E" 
x=" EB" 
Ags" 6" 
XB="B" 
4$="B" 
X="B" 
ee="B" 
xg="B" 
="B" 
xe="C" 


“S= ul Ee" 


AMD 
ANE 
AHD 
AD 
ANE 
AND 
AME 
AME 


ANC * 


AMD 
AND 
AHL 
AND 
ANC 
ANE 
AMD 
ANC 
AMC 
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vS="3" 
Yg="4" 
vs="5" 
Y$="6" 
“e="7" 
ve="8" 
ve="9" 


“($= " 1 u 


1$="3" 
vee" 
Y$="5" 
veciee 
Ye="7" 
ve="e" 
Y$="9" 
vee" 1" 
Y$="2" 


THEH 
THEN 
THEN 
THEM 
THEH 
THEN 
THEN 
THEN 
THEH 
THEN 
THEN 
THEN 
THEN 
THEH 
THEN 
THEN 
THEH 
THEH 


LOCAT 
LOCAT 
LOCAT 
LOCAT 
LOCAT 
LOCAT 
LOCAT 
LOCAT 
LOCHT 
LOCAT 
LOCAT 
LOCAT 
LOCAT 
LOCAT 
LOCAT 
LOCAT 
LOCAT 
LOCAT 


2236 IF x$="C" AND %$="3" THEN LOCAT 
E 18.17 

2246 IF xS="C" AWD YS="4" THEM LOCAT 
E 6.19 

2256 IF *$="C" AND YS="5" THEN LOCAT 
E 8.193 

2266 IF X$="C" AMD YS="6" THEM LOCAT 
E 14,19 

2276 IF 4#$="C" AND YS=""" THEM LOCAT 
E 6.21 


2e68 IF X$="C" AND Y$="8" THEN LOCAT 


2290 IF A$="C" AND Y$="9" THEN LOCAT 
E 16:21 
2468 RETURN 


This list cannot be tested until some moves are made, but 
provided you have entered it correctly there should be no 
trouble. Our next task is to start the moves at 1000. 


1034 LOCATE 2,24: PRINT "MOVE X TO ¢L 
ETTER > 

1040 X$=INKEYS: IF X#="" THEN 1646 
1050 IF X$="A" OR X$="B" OR X$="C" T 
HEN 1066 

1066 LOCATE 2.24: PRINT "MOVE «& TO CN 
UMBER > 

1070 YS=INKEYS:IF Y$="" THEN 1076 
1880 GOSUB 2666 

109@ PEN 3:PRINT CHRS(2409:PEH 1:S0U 
ND 1,506,260 


When entered and RUN these lines will allow you to place 
one red X on any position, but then the computer will stop 
with an error message. Ignore that. If you now repeat RUN 
you can try a different location — with the same result, for 
those seven lines only deal with the location and placing of 
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one X. .We must continue this section to test it more com- 
pletely. 


1100 PEN 3:LOCATE 2,24:PRINT "IS THf 
T A THREE-IN-LINE?C Y/N) "? PEM 1 
1114 GS=INKEYS: IF @$="" THEN 1116 
1126 IF G$<>"Y" AND O8<>"N" THEM 116 


113@ IF @$="N" THEN 1568 

1146 IF @$=""" THEN VREVK+1:PEHM 3:L0 
CATE 29,18:PRINT VRK:PEH 1 

1154 FOR X#1@0 TO Si STEP -S:SOUND 1 
»4,16:NEXT XK 

1166 PEN Z:LOCATE 2,.24:PRIHT "IS THE 
RE ANOTHER. Y/N > ":PEHM 1 
1178 RS=INKEYS: IF RS="" THEN 1176 
116@ IF RS<>""7" AND RS<>"H" THEM 116 
4) 

1196 IF R$="H" THEM 150 

1266 IF R$=""" THEH Ya="X+1:PEN 3:LO 
CATE 29.18: PRINT VX: PEN 1 

1214 FOR K=160 TO Se STEP -S:SOUND 1 
24 16:NEXT &: GOTO 1166 


a 


This completes the moves by X, and now a test can be 
made, but only for one move. Press RUN and ENTER, 
and when the message appears at the screen bottom ‘MOVE 
X TO (LETTER)’ press either A, B, or C. Then the message 
will change slightly to ‘MOVE X TO (NUMBER)’. Press any 
number (1 to 9) you choose, and a red X will appear there; 
if it doesn’t then you should check all your entries. 

With the X printed a red message will ask ‘IS THAT A 
THREE-IN-LINE?(Y/N)’. Do NOT press the N, for there is 
nothing at 1500 for it to go to. Press Y, and a red 1 should 
appear in the score position, while a tune is played. 

Then a blue message will appear ‘IS THERE ANOTHER? 
(Y/N). This needs an explanation. In this game of Three- 
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Dimensional Noughts and Crosses it is possible for the entry 
of one X (or O) to complete more than one 3-in-line. For 
instance: if Al, AS, C5, and C9 all had an X, then one placed 
at BS would complete two lines of 3-in-line: from Al through 
BS to C9; and from AS through BS to C5. It would also be 
possible for more than two 3-in-line rows to be completed, and 
so the final line in this listing goes back to repeat the blue 
question: ‘IS THERE ANOTHER?’. Only when N is pressed 
does it go on to the moves for O. 

To re-capitulate: after a move is made there will always be a 
red question: ‘IS THAT A THREE-IN-LINE?’. If N is pressed 
the computer goes to the opponent’s move. If Y is pressed it 
goes to the blue question: ‘IS THERE ANOTHER?’, and 
continues to loop back to that until the N is pressed. 

Each time the Y is pressed, ] is added to that score, and 
this can be seen in line 1140, where VX=VX+1, and is printed 
(with PEN 3) at the score position. This can happen in line 
1120 also, so if you press Y you get 1 added to your score. 
It is easy to cheat, but that rarely gives any lasting satisfac- 
tion, 

Study those lines from 1160 to 1210, for they give a good 
example of how to use a question input. Line 1170 keeps the 
computer waiting until a key is pressed. Line 1180 sends 
the computer back to the question asked until either Y or N is 
pressed. If N is pressed the computer goes to the O moves, 
and if Y is pressed it prints another score, plays a small tune, 
and goes back to the question again. 

We are now ready to enter the listing for the O moves at 
1500. These lines are a repeat of those from 1000 onward — 
but with differences here and there. I entered them by 
EDITing, but you may prefer to enter them directly. 


1538 LOCATE 2.24: PRINT "MOVE O TO CL 
ETTER > 

1544 X$=INKEYS: IF X#="" THEN 1546 
1550 IF ¥$="A" OR X$="B6" OF #S="C" T 
HEN 1564 

1564 LOCATE 2.24:PRINT "MOVE OG To CH 
UMBER > " 

1576 Y$=INKEYS:IF Y$="" THEN 1576 
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1586 GOSUE 2606 

1596 PEW 2:PRINT CHR#¢241):PEN 1:SQ 
ND 1.160.26 

1606 PEN 3:LOCATE 2,.24:PRINT "IS TH 
T A THREE-IH-LINE?¢ Y/N) ":PEN 1 
16146 @S$=INKE’S: IF Q$="" THEN 1614 
1626 IF @$¢>"7" AWD O$¢2"N" THEN 16 
5) 

1636 IF @$="N" THEN 1688 

1646 IF G$="7" THEN YO=/0+1:PEM 2:L 
CATE 29,26:PRINT VO:PEN 1 

1656 FOR 4=168 TO S@ STEP -S: SOUND 
4:16: NEAT % 

1666 FEN 2: rant 2,24: PRINT "IS TH 
RE ANOTHER T< YN ‘PEM 1 
1670 RS=INKEYS: IF R$="" THEH 1676 
1630 IF RES ony" AND RS<>"N" THEN 16 
@ 


169@ IF RS="N" THEN 1000 

1764 IF RS=""'" THEM YO=YO+1: FEM 2:Li 
CATE 29,26:PRINT VO:PEN 1 

1710 FOR X=160 TO S@ STEP -5:SOUND - 
Xs 18:NEXT &: GOTO lé6ew 


With this list entered the program is now complete, and can 
be played right through in order to test everything. The com- 
plexities of the various combinations of 3 -in-line will begin to 
appear. Even when playing against oneself (taking X and O 
in turn) the game is fascinating, and requires a great deal of 
thought before each move. For the first time Noughts and 
Crosses is a game of skill, though doubtless some bright 
fellow will work out a formula to always ensure a win if 
starting with X. However, there are so many alternatives to 
watch for that this will take a great deal of thinking out. 
The game will entertain you for a long time, and the more 
practice you put in the better able you will be to beat 
opponents. 
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This is the final instruction in this book. If you have 
entered each game in turn, beginning at Chapter One, and 
not leaving out Chapter Nine, you will by now have acquired 
some skill with the simpler ways to use BASIC to program 
the Amstrad. If you only remember to always plan a 
skeleton plot before starting each game you will be well on 
the way. 

It must be emphasized once again that these games have 
been written in the simplest form of BASIC; with the know- 
ledge gained from this book a large number of programs can 
be written. However, there is much more to be learned, for 
the Amstrad 464 has so many functions that the commands 
and features described in this book constitute less than a 
quarter of what can be done. Amstrad BASIC contains over 
150 keywords, and we have used only a few of these. What 
we have done, though, is to build a sound foundation, and 
when this has been learnt, it will become much easier to add 
in other functions and commands. 

The index contains a list of the functions and commands 
used in the previous chapters, so if you have forgotten one, a 
quick reference to the index should put you on the right 
track. 
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INDEX 


Page 
BREAK READY ............225085 44 
CAT i fhe ee Sitacese tek Behe Hate Sele ths ter cah 37 
CHESS so. detece ic Sine ce eed: hese e es as 15 
CHUCK-A-LUCK............-0205- 26 
COLOURS | 6:5, 2.668 i Ba ew) oe eee wis 93-94, 110, 116-117 
DOMINO PATIENCE .............--- 13 
DOMINO PONTOON .............-.. 93 
DOTTED LINES ................-.- 40,55 
DRAUGBTS:: oso accteneidc oe Hine Sr Pa eee 38 
DRAW 265 eee wires ees heh ee ihe Sans 41 
EDITING. 63.60 8 eevee He HE EOS 7,61, 113, 122 
FOR/NEXT 5 e055 ona sod ees we A 9-11, 35, 43 
GOASSI as ii be Fare kee, erika. ee erie ese 71 
GO lp Seep i dtece or ee he ee a A Sly 63-74 
GOSUB/RETURN ..............6.- 13, 14,47 
GRAPHICS) oe0es oe ecg a eres ee 5 
TE/THEN ic '-5.2: ie ne we hee we 47 
INKEYS 3 occ bee week ieee ee eS 44,47, 67 
INPUT? oo steeerahas wee Gay oes hc GW ek Dean 44, 126 
LIST: cis hed ere cd Br 8 eerie ay ais aA eee 11,19 
LOCATE/PRINT...........-0020005 6,16 
NESTING ive se 2g Weak ah ele oka ya ele tel aS 10 
ORIGIN/DRAW ...........0200 085 1, 108, 115 
PIXELS ciivee 25 Side see 0d 8 Piece oa meets 20, 108 
PLOT <= 3: does Sayeed eee es 8 we Ae od 7,40 
PLOTTING BOARD................ 19, 28, 78, 95 
PRINT ccd bin, ikiracn oats 2s @ Bde cg aae fore 8, 65 
PUNCTUATION ............2-.-0005 2,4 
| Fl D ne 22, 30 
RANDOMIZE ..........-2.-+0-0005 22, 30 
REVERSE 3 g0 satis. ole ii gs Sia a Ses 51 
SAVE ies alae Ae: oa se a cas ee Co sles 7 
SKELETON 60. seco. 6 eee ecteose: See ee ae, oe 13, 26, 38, 51, 63 
SOUND 555. Sue Sans Se a SE as PR oes 9,11, 31 
STEP o.oo bok pol hin Ba bsaew Ore H eeral Bas eae 9, 43, 109 
STOP, has e.i6 ee a0. ccce hace er ayaa cas eo dace cae A4 
SYMBOL. 2.5 -b-dcd 4 dhe ele eee Hake sale ve 6,27 
THREEDO&X..... 2.2.02. ee eee 118 
TRANSPARENT............-00-000- 2, 7,57, 67 
TRIANGLES 6. 5.60 ee a he bee are ee 108-115 
WDiGei8? te ios so oeateg: ew, Me nels ge es gislon barat a Go 4, 53, 76, 115 
VARIABLES ............-00--e-06- 33, 35 
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OTHER BOOKS OF INTEREST 


BP112: A Z80 WORKSHOP MANUAL 

E.A. Parr, B.Sc., C.Eng., M.I.E.E. 

Intended for people who wish to progress beyond the stage of BASIC 
programming to topics such as machine code and assembly language 
programming or need hardware details of the Z80 based computer. 

Starting with a review of computer principles, the book describes 
typical machine code instructions followed by a detailed description of 
the Z80 instruction set. Assembly language programming is discussed 
with examples. 

Also given are hardware details of the Z80 and the use of associated 
1/O devices such as UARTs, PIOs and CTCs. 

This book is not purely a descriptive text, however, Z80 hex machine 
code and assembler instructions are given in tabular form, along with 
in/out connections for Z80 and associated devices. It will therefore 
also be a useful reference book for the more experienced user. 
192 pages 1983 
ISBN 0 85934 087 2 £2.75 


BP152: AN INTRODUCTION Z80 MACHINE CODE 

R.A. & J.W. Penfold 

Home computers are equipped with built-in software that enables them 
to be easily programmed to do quite complex tasks. The price that is 
paid for this programming ease is a relatively slow running speed, far 
lower than the speed at which the computer is really capable of run- 
ning. Machine code programming entails direct programming of the 
micro-processor without using a built-in high level computer language 
such as BASIC. This gives a vast increase in running speed, but is 
something that can only really be undertaken by someone who has a 
reasonable understanding of the micro-processor and some of the 
other hardware in the computer. 

Machine code programming is not as difficult as one might think, 
and once a few simple concepts have been grasped it is actually quite 
straightforward (although admittedly never as quick and easy as using 
a high level language). This book takes the reader through the basics of 
micro-processors and machine code programming, and no previous 
knowledge of these is assumed. The micro-processor dealt with here is 
the Z80 which is not one of the most simple types, but is generally 
acknowledged as one of the most powerful 8 bit devices, and is by no 
means excessively difficult for beginners. The Z80, or in most cases 
now the faster version the Z80A, are used in many home computers, 
including several of the most popular machines such as the Sinclair 
ZX81 and ZX Spectrum, plus the Memotech MTX500 and MTX512 
machines, and the Amstrad CPC464. A few simple demonstration pro- 
grams that can be run on these computers are included in this book. 
144 pages 1984 
ISBN 0 85934 1275 £2.25 
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BP153: AN INTRODUCTION TO PROGRAMMING THE AMSTRAI 
CPC464 

R.A. & J.W. Penfold . 

The excellent hardware of the Amstrad CPC464 running with Locc 

motive BASIC go to make up an extremely potent and versatil 

machine and this book has been written to help the reader expand th 

potential of this powerful combination, with the minimum of difficulty 

The authors adopt a step-by-step approach starting with th 
fundamentals and then moving on to more advanced topics, with man: 
example programs being included to illustrate and clarify points 

In a book of this size it is impossible to fully cover every aspect of : 
machine as complex as the Amstrad CPC464, but the authors hav 
tried, as far as possible, to complement the information supplied by th: 
manufacturer rather than just duplicate it. 

The text is divided into the following chapters: 1. Variables & 
Arrays; 2. String Variables; 3. Decisions; 4. INPUT, PRINT & DATA 
5. The Sound Generator; 6. Graphics 1 — Modes & Colours; 7. Graphic 
2 — Animation; 8. Binary & Hex; 9. Interfacing; 10. Interrupts. 

144 pages 1984 
ISBN 0 85934 128 3 £2.2! 
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Please note following is a list of other titles that are available in our 
range of Radio, Electronics and Computer Books. 

These should be available from all good Booksellers, Radio Com- 
ponent Dealers and Mail Order Companies. 

However, should you experience difficulty in obtaining any title in 
your area, then please write directly to the Publisher enclosing payment 
to cover the cost of the book plus adequate postage. 

If you would like a complete catalogue of our entire range of Radio, 
Electronics and Computer Books then please send a Stamped Addressed 
Envelope to:— 


BERNARD BABANI (publishing) LTD 
THE GRAMPIANS 
SHEPHERDS BUSH ROAD 
LONDON W6 7NF 
ENGLAND 
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Practical Stereo and. Quadrophony Handbook 
Audio Enthusiasts Handbook 

Solid State Novelty Projects 

Build Your Own Solid State Hi-Fi and Audio 
Accessories 

28 Tested Transistor Projects 

Solid State Short Wave Receivers for Beginners 

50 Projects Using IC CA3130 

50 CMOS IC Projects 

A Practical tntroduction to Digital IC’s 

How to Build Advanced Short Wave Receivers 
Beginners Guide to Building Electronic Projects 
Essential Theory for the Electronics Hobbyist 
Resistor Colour Code Disc 

First Book of Transistor Equivalents and Substitutes 
Handbook of Radio, TV, Ind & Transmitting Tube & 
Valve Equivalents 

Engineers and Machinists Reference Tables 

Radio and Electronic Colour Codes and Data Chart 
Second Book of Transistor Equivalents & Substitutes 
52 Projects Using 1C741 

Chart of Radio, Electronic, Semi-conductor and 
Logic Symbols 

Resistor Selection Handbook 

Major Solid State Audio Hi-Fi Construction Projects 
How to Build Your Own Metal and Treasure Locators 
Electronic Calculator Users Handbook 

Practical Repair and Renovation of Cotour TVs 

50 Circuits Using Germanium, Silicon and Zener 
Diodes 

50 Projects Using Relays, SCR’s and TRIACS 

50 (FET) Field Effect Transistor Projects 

50 Simple L.E.D. Circuits 

How to Make Walkie-Talkies 

IC 555 Projects 

Projects in Opto-Electronics 

Mobile Discotheque Handbook 

Electronic Projects for Beginners 

Popular Electronic Projects 

(C LM3900 Projects 

Electronic Music and Creative Tape Recording 
Long Distance Television Reception (TV-DX) for 
the Enthusiast 

Practical Electronics Calculations and Formulae 
Your Electronic Calculator and Your Money 

Radio Stations Guide 

Electronic Security Devices 

How to Build Your Own Solid State Oscilloscope 
50 Circuits Using 7400 Series IC's 

Second Book of CMOS IC Projects 

Practical Construction of Pre-amps, Tone Controls, 
Filters & Attenuators 

Beginners Guide To Digital Techniques 

Elements of Electronics — Book 1 

Elements of Electronics — Book 2 

Elements of Electronics — Book 3 

Single IC Projects 

Beginners Guide to Microprocessors and Computing 
Counter, Driver and Numeral Display Projects 
Choosing and Using Your Hi-Fi 

Electronic Games 

Transistor Radio Fault-Finding Chart 

Electronic Household Projects 

A Microprocessor Primer 

Remote Control Projects 

Electronic Music Projects 

Electronic Test Equipment Construction 

Power Supply Projects 

Elements of Electronics — Book 4 
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Practical Computer Experiments 
Radio Control for Beginners 
Popular Electronic Circuits — Book 1 
Electronic Synthesiser Projects 

Electronic Projects Using Solar Cells 
VMOS Projects 

Digital IC Projects 

Internationa! Transistor Equivalents Guide 


An Introduction to BASIC Programming Techniques 


Simple L.E.D. Circuits — Book 2 

How to Use Op-Amps 

Elements of Electronics — Book 5 

Audio Projects 

An 'ntroduction to Radio DXing 

Easy Electronics — Crystal Set Construction 
Electronic Timer Projects 

Electronic Projects for Cars and Boats 
Model Railway Projects 

C B Projects 

IC Projects for Beginners 

Popular Electronic Circuits — Book 2 
Mini-Matrix Board Projects 

An Introduction to Video 

How to Identify Unmarked IC’s 

The 6809 Companion 

Multi-Circuit Board Projects 

Electronic Science Projects 

Aerial Projects 

Modern Op-Amp Projects 

30 Solderless Breadboard Projects — Book 1 
International Diode Equivalents Guide 

The Art of Programming the 1K ZX81 

How to Get Your Electronic Projects Working 
Elements of Electronics — Book 6 

A 2-80 Workshop Manual 

30 Solderless Breadboard Projects — Book 2 
The Art of Programming the 16K ZX81 

The Pre-Computer Book 

Electronic Toys Games & Puzzles 

Practical Electronic Building Blocks — Book 1 
Practica! Electronic Building Blocks — Book 2 
The Art of Programming the ZX Spectrum 
Audio Amplifier Fault-Finding Chart 

How to Design and Make your Own P.C.B.s 
Audio Amplifier Construction 

A Practical introduction to Microprocessors 


Easy Add-on Projects for Spectrum ZX81 & Ace 


25 Simple Amateur Band Aerials 

BASIC & PASCAL in Parallel 

How to Design Electronic Projects 

20 Programs for the 2X Spectrum & 16K ZX81 
An Introduction to Programming the ORIC-1 
Micro Interfacing Circuits — Book 1 

Micro interfacing Circuits — Book 2 

25 Simple Shortwave Broadcast Band Aerials 
An Introduction to Programming the Dragon 32 


Easy Add-on Projects for Commodore 64 & Vic-20 


The Secrets of the Commodore 64 
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BASIC & FORTRAN in Parallel 
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An Introduction to Programming the BBC Model 
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